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1 


Welcome 

One of the most exciting features of your Series 200/300 computer is its graphics capabilities. 
It is much easier to grasp the trends, relative sizes or quantities represented by data if it is 
presented in a graphical form, as opposed to tabular form. 

Manual Objectives 

This manual will introduce you to the set of graphics routines in the Series 200/300 Device- 
independent Graphics Library (DGL) graphics package. The goals of the DGL package are: 

1. As its name implies, it is a device-independent package. Thus, programs running on one 
computer or implementation should transport to another computer or implementation of 
DGL with a minimum of conversion effort. 

2. It is reasonably small. DGL is not meant to be an exhaustive library containing routines to do 
all conceivable grapics operations, but it gives you enough capability to develop them 
yourself. 

Prerequisites 

This manual is meant to teach you how to use the routines incorporated into DGL to produce 
highly readable and visually acceptable output. The manual assumes you are familiar with 
the Pascal programming language, and that you have access to a Pascal Workstation System 
manual, a Pascal Procedure Library manual, and the textbook An Introduction to Programming 
and Problem Solving With Pascal, and that you will look up any programming/syntactic topics 
you don’t understand. 

Example Programs on Discs 

Most of the demonstration programs and routines in the next three chapters of this manual are 
stored for your convenience on the DGLPRG: disc which was shipped with this manual. For 
those systems that were shipped with double-sided 3V2 inch discs, the programs are on the 
DOC: disc. You are encouraged to run these programs as you are reading the manual, as they 
will make understanding the concepts much easier. 


Note 

The demonstration programs and routines on the DGLPRG: or DOC: disc 
are for the purpose of instruction only. They are not part of the DGL 
package, and as such, they are not covered by any warranty, expressed or 
implied. Hewlett-Packard shall not be liable for incidental or consequential 
damages in connection with, or arising out of, the furnishing, performance, 
or use of these routines. 
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Why Graphics? 

Below is some data. As quickly as you can, determine if its overall trend is steady, rising or 
falling. Are there any periodic motions to it? If so, how many cycles are represented in the one 
hundred points? 


Voltage Variance Voltage Variance 


Time (sec) 

Voltage 

Time (sec) 

Voltage 

1 

0.1610 

51 

0.1669 

2 

0.1625 

52 

0.1655 

3 

0.1625 

53 

0.1665 

4 

0.1628 

54 

0.1662 

5 

0.1636 

55 

0.1667 

6 

0.1631 

56 

0.1668 

7 

0.1627 

57 

0.1681 

8 

0.1608 

58 

0.1688 

9 

0.1610 

59 

0.1687 

10 

0.1606 

60 

0.1707 

11 

0.1607 

61 

0.1716 

12 

0.1617 

62 

0.1716 

13 

0.1614 

63 

0.1694 

14 

0.1626 

64 

0.1698 

15 

0.1634 

65 

0.1683 

16 

0.1640 

66 

0.1683 

17 

0.1656 

67 

0.1671 

18 

0.1660 

68 

0.1681 

19 

0.1644 

69 

0.1683 

20 

0.1651 

70 

0.1684 

21 

0.1635 

71 

0.1681 

22 

0.1641 

72 

0.1698 

23 

0.1628 

73 

0.1705 

24 

0.1619 

74 

0.1723 

25 

0.1630 

75 

0.1730 

26 

0.1624 

76 

0.1734 

27 

0.1627 

77 

0.1714 

28 

0.1644 

78 

0.1722 

29 

0.1644 

79 

0.1716 

30 

0.1657 

80 

0.1696 

31 

0.1660 

81 

0.1702 

32 

0.1670 

82 

0.1699 

33 

0.1672 

83 

0.1684 

34 

0.1666 

84 

0.1706 

35 

0.1658 

85 

0.1696 

36 

0.1662 

86 

0.1715 

37 

0.1646 

87 

0.1730 

38 

0.1633 

88 

0.1737 

39 

0.1634 

89 

0.1739 

40 

0.1636 

90 

0.1751 

41 

0.1645 

91 

0.1732 

42 

0.1652 

92 

0.1747 

43 

0.1656 

93 

0.1729 

44 

0.1677 

94 

0.1717 

45 

0.1689 

95 

0.1710 

46 

0.1680 

96 

0.1707 

47 

0.1696 

97 

0.1706 

48 

0.1680 

98 

0.1709 

49 

0.1674 

99 

0.1713 

50 

0.1677 

100 

0.1720 
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A wise old computer programmer once said, “A graphical output is equivalent to IK words of 
text.” He was right. Unless both hemispheres of your brain are hyperdeveloped, it probably 
took a minute or two to answer each of the previous questions. Below is a graph of the data in 
the table. Observe that the graphical nature of the output makes what the data is doing much 
clearer. This clarity and understandability at a glance is what computer graphics is all about. 


VOLTHGE VRRIHNCE 



Time (seconds) 

V___/ 


A progressive example of how this plot was created is given through the rest of this chapter. 
Each installment demonstrates more of the graphics routines available. The successive plots, all 
representing the same data, become clearer and clearer as we learn some of the concepts of 
computer graphics and how to implement them with the routines available to us. 
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Using the Graphics Library 

To run the demonstrations programs in this manual, you must use the DGL routines contained in 
the GRAPHICS library file on the LIB: disc. The first step, then, is to make these libraries accessible 
to the demonstration programs at the appropriate times. 

There are two times when the GRAPHICS modules need to be accessible: 

• When the program is compiled, and 

• When the program is loaded. 

The simplest way to make the GRAPHICS library accessible during compilation and loading is to 
use the What command to make GRAPHICS the system library. To do this: 

1. At the Main Command Level, press ( W ) to invoke the What command. 

2. Press ( B ) to indicate you want to change the system library setting, and type the complete 
file specification for the GRAPHICS library file. Be sure to type a period after the file name, to 
prevent the system from appending a suffix to the name. For example, if the GRAPHICS file 
is still on the GRAPH: disc, you would type: 

GRAPHsGRAPHICS. ( Return) 

3. Press ( Q ) to exit from the What command. When you begin compiling and running the 
demonstration programs, make sure the GRAPHICS library file is on-line 1 . 


Note 

If you have plenty of memory in your computer, you can speed com¬ 
pilation by copying the GRAPHICS file into a memory (RAM:) volume 
of about 400 blocks. Be sure to use the What command to change the 
system library to RAM:GRAPHICS if you do this. You can also speed 
program execution by permanently loading the GRAPHICS file with the 
Permanent command. 


1 “On-line" means that it is accessible at that moment. This could mean either that the library is in a memory volume, or the library is on a disc 
and the disc is currently in a drive. 
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INCLUDE files 

In many of the following programs, there is a compiler directive called INCLUDE. This causes 
the compiler to access the specified file, compile the contents as if it were in the original file, and 
when the end of the file is reached, return to the original file and continue compilation. 

One advantage to INCLUDE files is that many programs can use the same file, not merely 
copies of the file. This makes it much easier to make modifications to the routines, because only 
one copy of the routine need be changed. If the routine had been physically copied into each 
program that used it, every occurrence of it would have to be individually changed. 

The INCLUDE directives used in the program files assume there is a volume on-line which 
contains the text files for all the necessary inclusions. Again, if you have enough memory, the 
INCLUDE process could be speeded up tremendously by placing the necessary files in a 
memory volume. 

Here is some information to help you define how large the “enough memory,” referred to in the 
previous paragraph, is. Below is a list of files at least some of which you will probably want to 
permanently load (the main advantage to permanently loading is very fast access) and the amount 
of memory they consume. The approximate file sizes are expressed in 256-byte blocks. 


File Name 

Approximate File Size 

EDITOR 

(subsystem) 

236 blocks 

FILER 

(subsystem) 

228 blocks 

COMPILER 

(subsystem) 

928 blocks 

LIBRARIAN 

(subsystem) 

288 blocks 

LIBRARY 

(library) 

64 blocks 

IO 

(library) 

240 blocks 

GRAPHICS 

(library) 

876 blocks 

FLTLIB 

(library) 

968 blocks 


You must also take into account any memory volumes you have defined, and the size of the 
program you are dealing with, etc. 
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The Graphics Programs 

All of the following plots use Cartesian (rectangular) coordinates: “X” specifies the left-right 
distance (with values increasing as you go to the right), and “Y” specifies the down-up distance 
(with values increasing as you go up). 

In the programs in this chapter and the next, each program name is identical to the file name 
which contains it. It is not mandatory that the program name is the same as the file name, but it 
helps to find the file. 

All the examples that follow get the Y-value from a function called DataPoint. This function, 
given an X value, merely returns the appropriate Y value each time it is invoked. You could just 
as well be reading values from a voltmeter, temperature sensor, anemometer, or any other 
device that you can connect to a computer. Since this function does not change from example 
to example, and since it represents any generic data-defining process, the function will not be 
listed at each update of the plotting program. For reference, though, it is listed in the appendix. 

Customizing the Programs for Your System 

The demonstation programs on the DGLPRG: or DOC: disc send graphics to the current console 
of a Series 200/300 Computer. The “current console” is the CRT where alpha is displayed 
after the system is booted; i.e., the CRT where the Pascal system command lines appear. 
Graphics display device selection is performed by the DISPLAYJNIT procedure. If you would 
like to use a different CRT (or other graphics device) as your display device, you must change 
the DISPLAYJNIT procedure call accordingly. 

The first parameter in the DISPLAYJNIT procedure call is called the device selector. It specifies 
which display device you would like to use for graphics output. The demonstration programs 
declare the device selector as a constant with the name CrtAddr. Graphics display devices are 
selected as follows: 

• A device selector of 3 specifies the current console as the graphics display device (again, this is 
where the command line appears). This is the value used in all of the demonstration programs. 
If the current console has no graphics hardware, the system may search for another display 
that does have graphics hardware and make it the graphics display device. 

• A device selector of 6 specifies any other internal CRT as the graphics display device (if one 
exists). Internal refers to any display whose frame buffer resides in the system’s “internal 
space,” i.e., any CRT which does not require a select code and/or bus address to access it. 

• A device selector in the range 8 through 31 specifies the select code of the interface to which 
the desired graphics display device is attached. 

• A device selector in the range 700 through 3199 specifies the composite HP-IB select 
code/bus address of the desired HP-IB graphics display device. 
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The second parameter is the DISPLAY_INIT procedure call is called the control value. It is used to 
specify device-dependent characteristics of the graphics display device. The demonstration prog¬ 
rams declare the control value as a constant called ControlWord. For complete details on this value, 
refer to the DISPLAY_INIT section of Appendix B. However, there are two cases that are worth 
discussing: 

• If you have a Model 237 (or Series 300 with bit-map display) and are using the bit¬ 
mapped display as your current console, you may remove the type-ahead buffer echo at 
the bottom of the screen (and use the entire display for graphics) by specifying a device 
selector (CRTADDR) of 3 and a control value (CONTROLWORD) of 256: 

CrtAddr= 35 

ControlWord= 25G5 

The value of 0 (used in the demonstration programs) retains the type-ahead buffer. 

• If you have an HP 98627A RGB interface connected to a 60 Hz, non-interlaced color 
monitor 1 , you can designate it as the graphics display device by specifying the interface’s select 
code as the device selector (CrtAddr), and a control value (ControlWord) of 256 (specifying US 
STD, 512 x 390, 60Hz refresh). See the table in the DISPLAY JNIT section of Appendix B for 
details. 

The control values are not merely “magic numbers”. Bits 10, 9, and 8 in the control value allow 
you to specify what kind of CRT you wish to interface to (in the case of an HP 98627A RGB 
interface), or to set characteristics of the display (in the case of the bit mapped-display). The 
value of 256 is not necessary if you are plotting on a U.S. Standard display (see the “External 
Color Displays” section in this chapter); 0 defaults to the same characteristics as does 256. 

The final parameter in the DISPLAY JNIT procedure call is an integer variable that will be assigned 
0 if the display device was successfully initialized, or a non-zero value if initialization failed. For more 
details, refer to the DISPLAY JNIT section of Appendix B. 

By modifying the device address and/or the control value, images which were drawn on one device 
can be drawn on another device with a minimum of effort. 

There are some limitations, though. If you are doing an operation on one display device, and 
attempt to send the image to another device which does not support that operation, it won’t work. 

Drawing Lines 

You are encouraged to compile and run the following programs on your computer as they are 
presented. Turn on your machine and load the Pascal operating system (if you don’t know how 
to do this, see Chapter 2 of the Pascal User's Guide). This program, as most of the following 
programs, use the compiler directive INCLUDE. Compile and run the following program; it is 
on the file “SinLine” on your DGLPRG: or DOC: disc. 


Note 

Examples that include files on “DGLPRG:” may require modification. If 
your system was shipped on double-sided 3 x /2 inch discs, all of the example 
programs are found on the “DOC:” disc. Statements such as $INCLUDE 
’DGLPRG:FILE’S should read SINCLUDE ’DOC:FILE’S. 


1 Depending on your choice of color monitor, there may be more specification necessary in the control value variable of the DISPLAY-INIT 
procedure. See the “External Color Displays” section in Chapter 3. 
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To move the pen somewhere, you call the procedure MOVE, and to draw lines, you call the 
procedure LINE. Both of these procedures have two parameters: the X and Y coordinates of 
the point you want to move or draw to. The following program does just that. 


p ro 3 raw S i nL i n e ( o ut put) > 


i w p o r t d S1 _ 1 i b 5 


{Set Sraphics routines! 

const 

C r t A d d r = 

3 ; 

{address of internal CRT! 

C o n t r o 1 = 

0 5 

{device control? 0 for CRT! 

va r 

E r ro rRetu rn : 

i n t e s e r 5 

{variable for initialization 

V a 

A a 

i n t e s e r 5 


Y: 

real 5 



^include 'DGLPRG:DataPoint' $ 
$pase$ 
b e s i n 

sfraphics-init! 


{function: v:=f(x) > 
{a**####*##**#*#*###*##*##*################*#####*####*####*#*#######} 

{body of program "SinLine"} 

{initialize Graphics system! 


display_init(CrtAddr»Control>E r ro rReturn) i 


{which output device?! 


if ErrorReturn = 0 then be Sin 
for X: = l to 100 do be Sin 
Y:=DataPoint(X)I 
if X=1 then wove(X/100 >Y) 
else 1ine(X/100>Y)5 
end 5 {for X: = 1 to 100! 
end! {ErrorReturn=0?> 

Sraphics_te rw i 
end. 


{output device initialization OK?! 
{100 points total! 

{Set a point frow the function! 
{wove to the first point...! 
{.♦♦and draw to all the rest! 


{terwinate the Sraphics packaSe! 
{proSram "SinLine"! 


Probably the first reaction you had when looking at the previous plot was that the plot doesn’t 
show you anything. But as you can see, this simple program is all you need to draw a 
rudimentary plot. 
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You must always execute the procedure GRAPHICS-INIT before any other graphics routine; if 
you don’t, almost every graphics routine called will either be ignored or will cause an error. As 
its name implies, it initializes the graphics system; that is, it sets various graphics parameters to 
their default values. These are the operations performed by the GRAPHICS_INIT routine: 

• Sets the aspect ratio to 1; 

• Sets the virtual coordinates and viewport limits to range from 0.0 to 1.0 in both the X and Y 
directions; 

• Sets the world coordinate limits to range from — 1.0 to + 1.0 in both the X and Y directions; 

• Sets the starting position to 0,0 in world coordinates; and 

• Sets all attributes to their default values. 


In case there were any unfamiliar concepts referred to above, don’t panic. We will soon cover all 
the above topics, and more. 

The following lines comprise the real guts of the S i n L i n e program: 

if X= 1 then mou e (X/ 1 00 t Y) 
else 1 ine (X/100»Y) i 

In a loop, the statement moves to the first point returned by the DataPoint function, and 
draws to all the rest. Each successive point is determined by the loop control variable X for the X 
direction and the value returned by the function DataPoint for the Y direction. 

The call to the routine GRAPHICS_TERM should be the last graphics routine called. It termin¬ 
ates the graphics package. 

Scaling 

Probably the first reaction you had when looking at the previous plot was “That doesn’t show me 
anything...” That’s true; it doesn’t show much information. There are two reasons for this. The first 
is that there is not enough variation in the curve; it’s too flat to show us anything. The second is that 
it is all compressed on the right half of the screen. If we exaggerated the Y direction to the point 
where we could see the variations, the lines would be close enough to vertical that it would be 
somewhat difficult to interpret the curve. Therefore we must expand it toward the left. 

Both of these problems can be remedied by scaling. In this context, scaling could be defined as 
“defining the values the computer considers to be at the edges of the active plotting surface.” 
The SET_WINDOW procedure defines the transformation used to map coordinates between 
the virtual display coordinate system (the coordinate system used by the DGL to describe the 
display device) and the world coordinate system (the coordinate system used by the user). 
Typically, the left edge is the smaller X, the right edge is the larger X, the bottom is the smaller 
Y, and the top is the larger Y 1 . Thus any point you plot which falls into these ranges will be 
visible. 


l 


This is by convention only. If you specify a value for the left (or bottom) edge which is greater than the value of the right (or top) edge, it is 
perfectly legal. The only restriction is that the left edge must not equal the right edge. The same goes for the bottom and top edges. 
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In our progressive example, the statement calling SET_WINDOW says that an X value of 0 should 
be precisely on the left edge of the screen, an X value of 100 should be on the right edge, a Y value 
of 0.16 is on the bottom, and a Y value of 0.18 is on the top. 

The procedure SET_WINDOW typically causes anisotropic scaling to be invoked. Anisotropic 
scaling means that one unit in the X direction is not forced to be the same length as one unit in the Y 
direction. Conversely, isotropic scaling means that one unit in the X direction is equal to one unit in 
the Y direction, as in a road map. Isotropic scaling is desirable in many cases. In many other cases, 
however, it is not. In this example, we are graphing the voltage from a sensor versus time, and it 
makes no sense at all to force seconds to be just as “long” as volts. Since we are dealing with data 
types which are not equal, it would be better to use unequal, or anisotropic, scaling. 

We said that the SET_WINDOW procedure “typically” causes anisotropic scaling to be invoked 
because there is no procedure that guarantees that the scaling will be isotropic. You can, by doing 
calculations with aspect ratios, figure what the exact values are to send to SET_WINDOW to force 
isotropic scaling. This will be covered in the next chapter. Here is the next version of our progressive 
example. It is in the file “SinWindow” on the DGLPRG disc. 



program Sinklindow(o u t p u t) 5 

import d sf 1 _ 1 i b 5 

const 

CrtAddr= 35 

ControlWord= 05 


var 

ErrorReturn: integer 5 

X: integer? 

Y s real? 

$ in elude 'DGLPRG:DataPoint '$ 


{Set Sraphics routines} 

{address of internal CRT} 

{device control! 0 for CRT} 

{variable for initialization outcome} 


{function: >':=f(x) } 
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{a#*#*****#*####**#****#**#*****#*#**##*#**#*****#*#**#********#***#*#***#**#) 
beSin {bod 1 / of program "SinWindow" > 

3raphics-init5 {initialize the Graphics system) 

di spI ay_init(CrtAddr>Contro1 Word>ErrorReturn)5 {which output device?) 


if E r ro rRetu rn = 0 then be Sin 
s e t_win d ow(0 >100 >0.1G >0 * 18) i 
for X: = 1 to 100 do be Sin 
Y: = D a t a P o i n t (X) 5 
if X =1 then move(X »Y) 
else 1in e(X »Y) 
end! {for X:=l to 100) 
end? {ErrorReturn=0?) 

S raphics_te rm ; 
e n d. 


{output device initialization OK?) 
{scale the window for the data) 
{100 points total) 

{Set a point from the function) 
{move to the first point...) 
{..♦and draw to all the rest) 


{terminate the Sraphics pacKaSe) 
{p r o S r a m "SinWindow") 


Granted, it would be nice to know what we are plotting, and what the units are, etc., but we’ll 
get there in due time. 

Setting the Aspect Ratio 

You may have noticed on the last plot that the curve did not extend to the right and left edges of 
the screen. In fact, the area of screen which was used was exactly as wide as the screen is high. 
Thus, the aspect ratio —the width of the screen divided by the height—is exactly 1. This was 
the second operation done by the procedure GRAPHICS-INIT, mentioned previously. 

For most applications, one would not want to be restricted to using only a square area in the 
middle of the screen. The procedure used to change the aspect ratio of the plotting surface is 
SET_ASPECT. When calling the SET_ASPECT procedure, only the ratio of the two parameters 
is used; thus, the values may be virtually anything, as long as the ratio between them is 
reasonable. 


To set the aspect ratio such that it will use the entire screen of a Model 236 computer, call the 
SET^ASPECT procedure with parameters 511 and 389. These are the number of pixels in the X 
direction minus one , followed by the number of pixels in the Y direction minus one. Distance 
measures the amount of space between pixels 1 , not the number of pixels. To illustrate the reason 
why 1 must be subtracted from both values, imagine a very low-resolution graphics display: 3 pixels 
in the X direction by 2 pixels in the Y direction. 


(0,1) (1,1) (2,1) 








(0,0) (1,0) (2,0) 


1 The word “pixel” is a blend of the two words “picture element,” and it is the smallest addressable point on a plotting surface. A Model 236 
computer has 512 x 390-pixel resolution; thus there can be no more than 512 dots drawn in any one row of the CRT, or 390 dots drawn in 
any one column. 
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As you can see, the distance between the rightmost pixels and the leftmost pixels is 2, and the 
distance between the uppermost pixels and the lowest pixels is 1. Thus, the ratio of width to height 
of this plotting surface is 2:1, rather than 3:2, as it would be if number of pixels were used. 

From the previous explanation, it follows that the correct values to pass to the SET-ASPECT 
procedure would be 511 and 389 for the Models 217 and 236; 399 and 299 for the Models 216, 
220, and 226; 1023 and 751 for the Model 237 and HP 98544A, HP 98545A, HP 98547A, HP 
98549A, HP 98700A (with type-ahead buffer), and HP 9000 382 Medium-Resolution display; 
or 1023 and 767 for the Model 237 and HP 98544A, HP 98545A, HP 98547A, HP 98549A, 

HP 98700A (with type-ahead buffer removed), and HP 9000 382 Medium-Resolution display; 
511 and 399 for HP 98542A and HP 98543A (with type-ahead buffer removed); or 1279 and 
999 for HP 98548A, HP 98550A, and HP 9000 382 High-Resolution (with type-ahead buffer); 
or 1279 and 1023 for HP 98548A, HP 98550A, and HP 9000 382 High-Resolution (with 
type-ahead buffer removed); or 639 and 463 for HP 9000 362/382 VGA (with type-ahead 
buffer); or 639 and 463 for HP 9000 362/382 VGA (with type-ahead buffer removed). These 
numbers are the numbers of pixels in the X and the Y directions, respectively, for those 
computers. The HP 98546A display (the video compatibility interface) is to all intents 
and purposes a Model 236A (monochrome) display. DGL cannot tell the difference. All 
specifications and capabilities for the Model 236A display DGL apply to the HP 98546A. 

In the next version of our progressive example, the only change is that the aspect ratio has been 
altered so the whole screen has been used. The following statement was placed immediately 
prior to the SET_WINDOW statement: 

set_aspect(511 *389)5 

This program may be found on the “SinAspect” on the DGLPRG: or DOC: disc. 



This plot looks better than the last one; the whole screen is being used. There is still one 
problem, though. We can see relative variations in the data, but what are the units being used? 
We saw at the very beginning of the chapter that we were measuring voltage, but with the plot 
at its current state, we don’t know if the height of the curve is signifying differences of micro¬ 
volts, millivolts, megavolts, dozens of volts, or what? And we probably wouldn’t want the text 
(explaining units, etc.) to be written in the same area that the curve is in, as it could obstruct part 
of the data curve. Therefore, we need to be able to specify a subset of the screen for plotting the 
curve and put explanatory information outside this area. The next section tells you how to do 
this. 
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Defining a Viewport 

A viewport is a subset of the plotting area into which the window limits are linearly mapped. It is 
specified in virtual coordinates. 

Virtual Coordinates and World Coordinates 

Before we define a viewport, we need to know about the two different types of units which 
exist. These two types of units are virtual display coordinates and world coordinates. Since a 
viewport is a “window” onto which the world coordinates are mapped, and in order for 
viewports to be predictable, they must be specified in units which are not dependent upon the 
user’s graphical model—the world coordinates. Since world coordinates are associated with the 
graphical model employed by the user, and virtual coordinates are associated with the display 
device, it makes much more sense to use virtual coordinates when specifying the limits of a 
viewport. (Note that world coordinates are set when specifying a window—they both start with 
“w”—and virtual coordinates are set when specifying a viewport—they both start with “v”.) 
Virtual coordinates always range from 0.0 to 1.0 in one direction, and 0.0 to a number dictated 
by the aspect ratio in the other direction. A viewport is associated with the display device, rather 
than the graphical model used in your program. 

These are the most important characteristics of virtual coordinates: 

• The lower left of the plotting area is always 0,0. 

• Virtual coordinates are isotropic; that is, one unit in the X direction is the same distance as 
one unit in the Y direction. 

• Virtual coordinates are limited to the range 0 through 1. The maximum coordinate on one 
side is 1, and the maximum coordinate on the other side is less than or equal to 1. 

The following discussion assumes that the aspect ratio is set such that the whole screen is 
used: 511/389 for the Models 217 and 236; 399/299 for the Models 216, 220, and 225; or 
1023/767 for the Model 237, HP 98544A, HP 98545A, HP 98547A, HP 98549A, HP 98700A, 
and HP 9000 382 Medium-Resolution display; or 511/299 for the HP 98542A and HP 98543A; 
or 1279/1023 for HP 98548A, HP 98550A, and HP 9000 382 High-Resolution; or 639/479 for 
the HP 9000 362/382 VGA display. Since the height of the screen is less than the width of the 
screen, the longer edge is in the X direction; therefore, Xmax in virtual coordinates is 1.0. 

That was the easy part. Once you’ve decided which edge is longer, and thus defined the units 
along that edge, you need to find out the length of the shorter sides in virtual coordinates. 
Typically, these values will be known because you explicitly specify the aspect ratio yourself. 
However, if you don’t know the aspect ratio (and therefore the virtual coordinates maxima), 
you can interrogate the system with a call to the INQ_WS procedure 1 . This will be done in 
the next chapter. For now, though, we’ll just observe that the virtual coordinate limits (for 
the entire screen, remember) are 0.0 to 1.0 in X, and 0.0 through 299/399 = 0.749373433584 
(on the Models 216, 220 and 226), or 0.0 through 389/511 = 0.761251446184 (on the 
Models 217 and 236), or 0.0 through 767/1023 = 0.749755620723 (on the Model 237, HP 
98544A, HP 98545A, HP 98547A, HP 98549A, HP 98700A, HP 9000 382 Medium-Resolution 
display), or 0.0 through 399/511 = 0.780821918 (on HP 98542A and HP 98543A), or 0.0 
through 1023/1279 = 0.799843628 (on the HP 98548A, HP 98550A, and HP 9000 382 
High-Resolution), or 0.0 through 479/639 = 0.740608764 (on the HP 9000 362/382 VGA 
display). 

1 The INQ_WS procedure is a DGL procedure through which you can find out various parameters of the graphics system. 
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Specifying the Viewport 

The SET_VIEWPORT procedure sets up a transformation which will convert points in world 
coordinates into points on the plotting surface. The call to SET_VIEWPORT in the following 
program specifies that the lower left-hand corner of the viewport area is at 0.10,0.12 and the 
upper right-hand corner is at 0.99,0.70. 

s e t _ uie w p o r t(0 »10 >0*99 1 0♦12 >0.7 0) 5 

This is the area which the SET_WINDOW procedure affects. We will also draw a box around 
the viewport limits by drawing the rectangle bounded by -1 and 1 in both the X and Y 
directions. (The default window limits are — 1 to 1 in both directions.) It is done in this example 
so you can see the area specified by the SET_VIEWPORT procedure call. 

And here is the output from the next version of our progressive example (found on file “Sin- 
Viewpt” on the DGLPRG: or DOC: disc). The only change is that a call to SET_VIEWPORT 
has been placed immediately after the line calling SET_ASPECT. 


— 



V_ ) 
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Labelling a Plot 

With the inclusion of the call to the SET_VIEWPORT procedure, we have enough room to 
include labels on the plot. Typically, in a Y-vs-X plot like this, there is a title for the whole plot 
centered at the top, a Y-axis title on the left edge, and a X-axis title at the bottom. 

The DGL procedure GTEXT writes text onto the graphics screen. You can position the label by 
calling MOVE to get to the point at which you want the label to be placed. It is the lower left 
corner of the label which ends up at the point to which you moved. In other words, we will 
move to the position on the screen at which we want the lower left corner of the text to be 
placed. 

Notice in the following plot that the Y-axis label on the left edge of the screen is created by 
writing one letter at a time. We only need to move to the position of the first character in that 
label because we terminate each one-character GTEXT call with a carriage return/linefeed. This 
causes the pen to go one line down, ready for the next (one-character) line of text. (There is 
another way to plot vertical labels; we’ll see it shortly.) 


VOLTRGEVRRIRNCE 1 



Time (seconds) 

V_/ 


pros raw 
import d 
const 
CrtAdd 
Cont ro 
va r 

Er ro rR 
St rn 3: 
Cha rac 
X: 

Y: 

% i n c 1 u d e 
$pa3e$ 
b e 3 i n 
3 raphics 
di sp! ay_ 


SinLabe11(output)5 
31 _ 1 i b t d 31 _ i n =i 5 


r = 

ll*lo rd = 
etu rn: 


3 i 
0 5 


{Set Sraphics routines} 

{address of internal CRT} 

{device control! 0 for CRT} 

{variable for initialization outcome} 
{seven characters in 'Vo11a3e ' } 

{loop counter for labellins} 


i n t e 3 e r 5 
s t r i n 3 C 71 ! 
ter: inteSer! 

i n t e 3 e r 5 
real 5 

'DGLPRGsDataPoint{function: y;=f(x) } 
{a #***###*****#************** ******* *********************************} 

{body of pro 3 ram "SinLabeH" } 

_init! {initialize Sraphics system} 

init(CrtAddr»ControlWord»ErrorReturn)5 {which output device?} 
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if Erro rRetum = 0 then betfin 
set_aspect(511>389)5 
mo ue ( -0 >45 >0> 9) 5 
next ('VOLTAGE VARIANCE ')5 
St rn 3: = 'Vo 1taSe ' 5 
move(-0.95 >0>3)5 

for Character:=l to str1en(Strn3) 
$text(str(StrnS>Character>l)+ch 
m o v e ( - 0 .3 > - 0 .9 ) 5 
next( 'Time (seconds )')5 
set_viewpo rt(0 ♦ 1 >0»99 >0»12 >0 * 7)5 
M o v e ( -1 > -1) 5 1 i n e (1 > -1) 5 1 i n e (1 > 1 
set_window(0 >100 >0«IS >0>18)5 
for X: = 1 to 100 do be Sin 
Y: = D a t a P o i n t (X) j 
if X=1 then move(X>Y) 
else 1in e(X > Y)5 
end? {for X:=l to 100} 
end? {ErrorReturn=0?> 

Sraphics_te rm 5 
e n d ♦ 


{output device initialization OK?} 
{use the whole screen} 

{starting point for the title} 

{label the plot} 

{the v-axis label} 

{starting point for the y-axis title} 
do {follow every character...} 
r(13)+chr(10)); {...with a CR/LF} 

{starting point for the x-axis label} 
{x-axis label} 

{define subset of screen} 

)5 line(-l >1)5 line(-l>-l)5 {frame} 

{scale the window for the data} 

{100 points total} 

{Set a point from the function} 

{move to the first point...} 

{.♦.and draw to all the rest} 


{terminate the Sraphics packaSe} 
{prosram "SinLabell"} 


This gets the point across, but it would be nice if we could cause some labels to be more 
obvious by making them bigger; for example, on the main title. Also, you may want the Y-axis 
title to be turned on its side, and not do the carriage return/line feed trick we did last time. 


Setting Character Size 

The DGL procedure SET_CHAR_SIZE sets two attributes 1 of all subsequent characters, namely 
the width and height of the character cells. A character cell contains a character and some blank 
space above, below, to the left of, and to the right of the character. This blank space allows 
packing character cells together without making the characters illegible. The amount of blank 
space depends, of course, on which character is contained in the cell. The values sent to 
SET_CHAR_SIZE are expressed in world coordinates: 

set_char_size(Width> Height)? 


When a character size is selected, the width and height associated with a character cell are 
defined for an unrotated character cell. Thus, when a character is rotated, its shape does not 
change, even though its width (measured along the X axis) and height (measured along the Y 
axis) are not the same directions as the display device’s axes. 

The ability to specify character sizes in world coordinates is valuable when doing graphical 
output in which the labels are to remain with the objects they describe. In these cases, the 
characters are scaled using the same scaling as the objects drawn. 

In the following program (program SinLabelZ on a file by the same name on the DGLPRG: 
disc), the character width and height are defined to be something on the order of 2*0.04. The 
reason that a 2 was used in these expressions is that the current (default) window limits were 
— 1 to 1, for a distance of 2. The 0.04 comes from the fact that we wanted 4% of the window 
distance in that direction. 


1 An attribute, in this context, is a piece of information which helps define or describe some object. 
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Centering Labels 

In that last program, the labels looked reasonably centered. This was only because the starting 
point was arrived at in a hit-and-miss manner. The main characteristic of labels which makes it 
difficult to center them is this: the reference point of a label is the lower-left corner of the label. 
That is, the point you moved to just prior to writing the label will end up at the lower-left hand 
corner of the label. If we want our labels to be centered, we must figure out how long each label 
is, subtract half that length from the X position of where we want the center of the label to be 
placed, and then write the label. 

We know what the characters’ sizes are; we can set it with the SET_CHAR_SIZE procedure. We 
can also determine how long the string of text to be labelled is. This is found by using the 
standard procedure STRLEN. If you give it a string, it will return the length (in characters) of 
that string. 

Horizontal centering of a string, then, can be accomplished by subtracting the value returned by 
the following expression from the desired X position of the center of the label 1 : 

(strleri(Text)*CharWidth)/2 


Thus, if we want a label centered horizontally about the point X, and at a Y value of Y, we could 
say: 

move(X-(strlen(Text)*CharWidth)/2»Y)5 


Setting the Label’s Direction 

Quite often, labels need to be at some other angle than horizontal. We saw a few pages ago that 
a vertical label could be done—albeit somewhat clumsily—by labelling one horizontal character 
at a time, and following each by a carriage return/line feed. What we need is a way to specify 
that we want labels to be plotted at whatever angle we specify. 


Through the DGL procedure SET_TEXT_ROT, you can specify the amount of rotation you 
want the label to undergo. However, you must specify this in two pieces: the X displacement 
and the Y displacement. For example: 


set_text_rot(2 i-l ) 5 
set_text_rot( 1 »0) 5 
set_text_rot(87t87) 5 
set_text_rot(0 t5) 5 
set_text_rot(-l 1 0 ) 5 


Label goes down and right; a -26.57° angle. 
Label is horizontal; default direction. 

Label goes up and right at a 45° angle. 
Vertical label; ascending. 

Upside-down label. 


The SET_TEXT_ROT procedure deals only with the ratio of the run and rise parameters. Thus, 
multiplying both parameters by the same number will not change the angle at which the 
subsequent labels are written. The third example above, which sets both the run and the rise to 
87, could have used any two numbers as parameters, as long as they equaled each other. 
Going 87 units up for every 87 units to the right yields the same angle as going 19 units up for 
every 19 units to the right, etc. 


1 This is quite close to the truth, but is an approximation. There is an inter-character gap, which is the space caused by the fact that a character is 
placed inside a character cell, and it is complicated because the amount of space on the left side of a character is different from the amount of 
space on the right. See the Character Cell section in the next chapter. 
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Any particular angle you want can be passed to the SET_TEXT_ROT procedure by operating 
on the angle with the cosine and sine functions. For example, to cause labels to be written at an 
angle of - 77/4 (a 45° angle), you could use the following statement. It assumes there is a constant 
called Pi which has a value approximately equal to 3.1415926535897. 

set_text_rot(cos(Pi/180*45) tsin(Pi/180*45))5 

With these two statements, we can make a marked improvement in the quality of the output. 
The next version of our progressive example uses them. 


-■ V 

VOLTRGE VRRIRNCE 



^_Time (seconds)_J 


p r 0 S r aft! S i n L a b e 12 ( 0 u t p u t) 5 
import dsl_lib> dsl-inii 
const 

CrtAddr= 35 

ControlWord= 05 
v a r 


CharWidth: 
CharHei sfh t: 
Text: 

Er ro rRetu rn 
X: 

Y: 


real 5 
real? 

strinsC203 
integer! 
i n t e s e r 5 
real 5 


$in elude 'DGLPRG:DataPoint'$ 


b e * i n 

Sraphics_init 5 


{Set S r a p h i c s routines} 

{address of internal CRT} 

{device control? 0 for CRT} 

{width of character in world coords} 

{ h e i S h t of character in world coords} 
{temporary holdins place for text} 
{variable for initialisation outcome} 


{function: 


=f(x) } 


$paSe$ {a*********************************************ft******##****#####**#*} 


{body of program "SinLabe12“} 
{initialize the Sraphics system} 


di spI ay_init(CrtAddr>Contro1 Word>ErrorReturn)5 {which output device?} 
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if ErrorReturn=0 then heSin 
set-aspect(511>389) I 
Cha rWidth:=2*0 * 04 5 
CharHeiSht:=2*0,08 5 
set_char_size(CharWidth>CharHei$ht)5 
Text: ='VOLTAGE VARIANCE ' 5 
mo v e ( - ( s t r 1 en (Te x t) *Ch a rW i d t h ) / 2 >0.9 
stext(Text) 5 
set_text_rot(0>l) 5 
CharWidth:=2*0.0255 
CharHeiSht:=2*0.04 5 
set_char_size(CharWidth>CharHei3ht)i 
Text:='Volta$e'5 

move(-0.9>-(strlen(Text)*CharWidth)/ 
stext(Text) 5 
set_text_rot(l>0) ! 

T e x t: = ' Tiw e (seconds)'! 

wove(-(st rlen(Text)*Cha rWidth) 12 >-0. 

stext(Text)! 

s e t _ view p o r t( 0 . 1 > 0 .99 > 0 ♦ 1 2 > 0 .7) 5 
wove(-l>-l)5 1 ine ( - 1 > 1) ! lined >1)5 
s e t_win d ow(0 >100 >0.1B >0.18)5 
for X: = 1 to 100 do be Sin 
Y: = D a t a P o i n t (X) 5 
if X =1 then wove(X >Y) 
else 1in e(X > Y)5 
end! {for X: = 1 to 100 3- 
end! {ErrorReturn=0?> 

S raphics_te rw 5 
e n d ♦ 


{output device initialization 0K?> 

{use the whole screen} 

{char width: 47 of screen width} 

{char height: 8% of screen heisht} 
{install character size} 

{define the text to be labelled} 

) 5 { 3 o to start point for centered label} 
{label the text} 

{vertical labels} 

{char width: 2.57 of screen width} 

{char height: 47, of screen height} 
{install character size} 

{define the text to be labelled} 

2)! {start point of centered label} 

{label the text} 

{horizontal labels} 

{define the text to be labelled} 

92)! {start point of centered label} 

{label the text} 

{define subset of screen} 
lined >-1)5 line(-l>-l)! {frame} 

{scale the window for the data} 

{100 points total} 

{Set a point from the function} 

{wove to the first point...} 

{...and draw to all the rest} 


{terminate the Sraphics pacKaSe} 
{prosram "SinLabe 12" } 


Bold Labels 

Many times it’s nice to have the most important titles not only in large letters, but bold letters, to 
make them stand out even more. It is possible to achieve this effect by plotting the label several 
times, moving the label’s starting position just slightly each time. In the following version of the 
program (on file “SinLabel3” on your DGLPRG: or DOC: disc), notice the FOR loop used when 
labeling the main title. The loop variable, X, goes from -3 to 3. This is the offset in the X 
direction of the label’s starting position. 

The only change in the program was that the statements labelling the main title: 

mo u e(-(s t r1en(T e x t)*C h a rWid t h)/2>0.9) 5 
next (Text) 5 


were replaced by the following: 
for X:=-3 to 3 do be 3in 

mo v e (-(s t r 1 en (T e x t )*Cha r Wid t h)/2 + X*0.002 >O ♦ 9)5 
Stext(Text) 5 
e n d 5 


This method can also be used for offsetting in the Y direction. Or, offset both X and Y. This will 
give you characters which are thick in a diagonal direction, which makes them look like they are 
coming out of the page at you. However, a more typical bolding is produced by offsetting only 
in the X direction. 
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VOLTRGE VARIANCE 



^ Time (seconds)_ J 


Now we know what we are measuring—voltage vs. time—but we still do not know the units 
being used. What we need is an X-axis and a Y-axis, to show us where to put the numbers. 


Axes and Tick Marks 

When drawing axes, they are typically composed of a straight line defining the axis itself, and 
short lines, perpendicular to the axes, to indicate the spacing of units. These short lines are 
called tick marks. Usually, the tick marks are grouped into multiples of a nice round number so 
as to make it easier to understand where the multiples are. These groups are delimited by 
causing the first tick mark in each group to be larger than the rest. 

When writing an axis routine, it is almost always desirable to cause a major tick mark to be 
coincident with the other axis. For example, if you draw an X axis and select a major tick count 
of five, it would probably be undesirable to have a minor tick mark (say, two ticks to the right of 
a major tick) cross the Y axis. This would mean that you would have to go three ticks to the right 
of the Y axis to find a major tick, but only two ticks if you were going to the left. 

Following are some sections of code that do the processing necessary for an axis; an X-axis in 
this case. A Y-axis proceeds with similar steps. Assume the following variables are defined: 


Spacing: 

Location: 

Xmin,Xmax: 

Major: 

Majsize: 

Minsize: 


The distance between tick marks on the axis. 

The Y-value of the X-axis. 

The left and right ends of the X-axis, respectively. 

The number of tick marks to go before drawing a major tick mark. If 
Major = 5, every fifth tick mark will be major. 

The length, in current units, of the major tick marks. 

The length, in current units, of the minor tick marks. 
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The first thing you would do is to draw the axis itself. Its length would be from Km in to Xmax, and its 
Y-position would be Location: 


moy e(Kmin (Location) 5 
1ine(Xmax (Location) 5 


If the lengths of the major and minor tick marks are M a j s i z e and M i n s i z e , then half those lengths 
would be on each side of the axis. Rather than dividing by two at every tick, let’s do the 
divisions once and put the values into their own variables: 

SemiMinsiz e:= Minsiz e*015 5 
SemiMaJsize:=MaJsize*0»55 

We need to round the starting value down to the next major tick mark. The function being used 
here is a user-defined rounding routine which can round down, up, or to the nearest multiple of 
the specified value. 

X: =Round2 (Xinin (Spac in S*Ma Jo r (Down ) 5 

If you do not need or want to force a major tick mark to be at X = 0, you could replace the 
previous statement with the following, which forces a tick, not necessarily a major one, to be at 
zero: 


X:= Roun dZ (Xmin(Spacing(Down)5 

Or, you may not want to round at all; you may want to start making tick marks at the value of 
Xinin no matter what its value—whether it’s a nice round number or not. In this case, replace the 
previous statement with this: 

X:= X min5 

Now we need to draw all the tick marks. The distance between consecutive ticks is defined by 
Spac ins. Every Nth tick will be a major tick, where N is the current value of MaJo r. A counter (of 
type INTEGER or some subrange) will be employed which will be incremented at every itera¬ 
tion and will wrap around. Every time the counter’s value is zero, it is time for another major tick 
mark. 

Co ante r:=0 5 

while XOXinax do be Sin 
if Counter=0 then besin 

in o v e (X (L o c a t i o n - S e m i M a J s i z e ) 5 
1ine(X (Looation+SemiMaJsize)I 
end {Counter=0?> 
else b e S i n 

moi.fe (X (Locat i on-SemiMinsi ze ) 5 
1 i n e (X (L o c a t i o n+S e iii i H i n s i z e ) 5 
end? {else b e Sin> 

Counte r: = (Counte r + 1) mod MaJo r 5 
X: =X+SpacinS5 

end? {while} 
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Here is the next version of our progressive example. It draws both an X and a Y axis. For 
complete listing of this program, see the Appendix. 



program SinAxes1(output) 5 
import d s1_1ib > d 31_in p 5 

3! 

0 5 

(Up t Down > Near)5 

real 5 
real 5 

strinSCZO]5 
integer! 
integer! 
real 5 

^include 'DGLPRG:DataPoint '$ 


{Set 3 r a p h i c s routines) 

{address of internal CRT) 

{device control? 0 for CRT) 

{used bv procedure RoundZ) 

{width of char in world coords) 
{height of char in world coords) 
{temporary hoi din 3 place for text) 
{variable for initialization outcome) 


{function: y:=f(x) ) 


const 

C r t A d d r = 

Cont ro IWo rd = 
type 

RoundType= 

var 

CharWidth: 
CharHeiSht: 
Text: 

E r ro rRetu rn : 


Procedures Maxis and Yaxis, and function RoundZ go here. 


be sin {body of pros ram "SinAxesl") 

Sraphics.init5 {initialize the Sraphics system) 

di spI ay_init(CrtAddr»Contro1 Word»ErrorReturn)? {which output device?) 


if Er ro rReturn = U then beSm 
set_aspect(511 t3B9) ? 

CharWidth:=Z#0 *04? 

CharHeisht:= Z*0.085 
set_char_size(CharWidth>CharHeisht) 5 
Text:='VOLTAGE VARIANCE' 5 
for M:=-3 to 3 do beSin 

mo v e (- (st r 1 eri (Te x t) *Cha rWi d th ) /Z+X 
Stext(Text) 5 
e n d 5 


{output device initialization OK?) 
{use the whole screen) 

{char width: 4% of screen width) 
{char heisht: (\1 of screen heisht) 
{install character size) 

{define text to be labelled) 

{Make "bold" label) 

0 * 00Z *0 * 9)5 {center label) 

{label the text) 
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set_text_rot(0»l)5 {vertical labels} 

CharWidth:=2*0.0255 {char width: 2.5X of screen width) 

CharHeiSht:=2#0.0fli {char height: (\"L of screen height) 

set_char_size(CharWidth>CharHeiSht)5 {install character size) 
Text:='Molta$e'i {define the text to be labelled) 

move(-0.9>-(strlen(Text)*CharWidth)/2)5 {start point of centered label) 


atext(Text)5 
Text:='Time (seconds)'? 
set_text_rot(l>0) ? 

move(-(st r1en(Text)*Cha rWidth)/2 >-0. 
sftext (Text) 5 

s e t_ vie wpo r t(0.1 *0.99 »0.12 1 0.7)5 
mo ve(-1 > -1) 5 1in e(-1 > 1) 5 1in e (1 > 1) ? 
s e t_win d ow(0 >100 > 0.1G »0♦18)? 

Xax is(1>0.IS >-50 >150 >5>0.001»0♦0005) 
Yaxis(0.001>0 >0.1>0.2 >5 »2>1 > ? 
for X: = 1 to 100 do be Sin 
Y: = D a t a P o i n t (X) ? 
if X =1 then move(X >Y) 
else 1in e(X > Y)5 
end? {for X:=1 to 100) 
end? {E r ro rRe t u rn = 0? ) 
i raphics_te rm 5 
e n d. 


{label the text) 

{define the text to be labelled) 
{horizontal labels) 

92)5 {start point of centered label) 

{label the text) 

{define subset of screen) 

1 i n e (1 > -1) 5 1in e(-1>-1)5 {frame) 

{scale the window for the data) 

? {draw the x-axis) 

{draw the v-axis) 

{100 points total) 

{Set a point from the function) 

{move to the first po i nt. ♦. ) 

{...and draw to all the rest) 


{terminate the Sraphics pacKaSe) 
{prosram "SinAxesl") 


This version is better than the last; it has axes and we can see the units they’re delimiting, but 
obviously, there is a big problem. Not only do the axes and tick marks appear where we want 
them, they are also many places where we don’t want them. We want the axes to stop at the 
limits of the window, and we also want the tick marks to extend only toward the interior of the 
graph. What we want is clipping. 


Clipping Lines 

Clipping is a method of defining edges of a plotting area, and drawing things which are cut off at 
those defined edges if they hang over. This is analogous to describing a large drawing on a huge 
sheet of paper, and but only drawing those parts which are inside some rectangle. What this 
means is that when clipping is invoked, everything inside the rectangle should look identical to 
the image (inside the same rectangle) created when clipping is not invoked. Only the things 
outside the rectangle are affected. Clipping affects lines, text, markers, and polygons. 


Clipping a line consists of determining how much of a line is within the clipping limits, and then 
drawing only the visible part. There are four distinct cases: 


• The line is contained entirely within the clip limits. 
Therefore, using the original endpoints, draw the entire 
line. 


Clipping Limits 



• One endpoint is within the clip limits, but the other one 
is outside. Therefore, find the intersection between the 
line to be clipped and all clip limits which intersect it 
(two at the most). Draw the line from the visible end¬ 
point to the closest edge-intersection. 


t 
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• Both endpoints are outside the clip limits, but some 
middle part of the line is visible. Do the same operation 
as for the single invisible endpoint above, but for both 
endpoints. 


• The entire line is invisible. Reject it; do nothing. 



DGL clips images at the display limits—those limits set by the SET_DISPLAY_LIM routine. 
Often, however, you may wish to clip at other boundaries than the logical display limits. In 
addition, the parameters for SET_DISPLAY_LIM are expressed in millimeters. Millimeters are 
quite adequate for setting display limits, but are usually clumsy to work with when the rest of the 
graph is in world coordinates. But there is a way to do it. There is a DGL routine called 
CONVERT_WTODMM, which converts world coordinates to millimeters on the display surface. 
However, SET_DISPLAY_LIM may reset the view surface limits, so some redefinition of other 
parameters may be necessary. Thus, you can clip using these two routines in conjunction with 
each other. 

A User-Defined Clipping Algorithm 

In the appendix is a listing of the program “SinClip”, which uses a clipping routine 1 called 
ClipDraw. Also included is a routine to which you pass the desired clip limits: ClipLimit. 
The clip limits may be inside, outside, or coincident with the window edges. After the clipping 
limits have been defined, a line is passed to the clipping routine. Both endpoints of a line must 
be known, because intersections between the line being drawn and the edges of the clipping 
area must be calculated. 

These two clipping-related routines allow lines to be clipped outside of any desired rectangular 
area. However, the axis routines used in the last demonstration program must be modified to 
call the clipping routine. In addition, there is another modification which would be very conve¬ 
nient to have: 

It would be nice if we didn’t have to pass the Xmin and Xmax or Ymin and Ymax to their 
respective routines so they would know where to start drawing tick marks. To do this, we’ll just 
use the global variables ClipXmin, ClipXwax, C1 i pYm in, C1 i pYmax. Then we’ll round the 
lower window limits down to the next value which would have a major tick mark. We round to a 
major tick mark because (in this case) we want the value of 0 to have a major tick, regardless of 
whether zero is on the plotting surface. 

Installing the modified axis routines results in the following plot. The program may be found on 
file “SinClip” on the DGLPRG: or DOC: disc. 

1 This clipping routine was adapted from a routine on page 66 of the excellent book: 

Principles of Interactive Computer Graphics, William M. Newman and Robert F. Sproull, Second Edition, 1979, McGraw-Hill. 
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VOLTHGE VRRIRNCE 



V_ J 


This is a good general-purpose clipping routine which is independent of the output device used, 
and of the DGL implementation used. But as we noted earlier, only lines sent to the CLIP- 
DRAW routine were clipped, and therefore text, written by a call to GTEXT, in addition to 
markers and polygons, were not clipped. 

These axes look much better. Now we know where the numbers should be placed on the axes. 
Let’s learn a little about labelling numbers. 

Labelling Axes 

In the process of labelling axes, we need to know how to convert numbers to strings which look just 
like the numbers. The reason for this is that the labelling procedure GTEXT can only accept a string 
for an input parameter. 

There is a standard procedure in Series 200/300 Pascal called STRWRITE. This allows you to 
use regular output formats, but, instead of sending the data to a file, the data is put into a string 
variable. The same format-controlling numbers after colons that can be used for WRITELN can 
be used for STRWRITE. Let’s assume there are three variables defined: 

• A string variable Strns. This variable will receive the 
string version of the value converted from REAL; 

• An integer I. This is merely for a value returned from 
the STRWRITE routine. It indicates the location of the 
next unused character in the string; 

• And a REAL variable called X which we want to con¬ 
vert to a string. 

The actual conversion would be accomplished through the following statement: 


strwrite(Strn3>l > I > X : G: 4) ? 

The : B after the X tells the computer that the entire field should be six characters wide. This 
includes the digits to the left of the decimal point, the decimal point itself, and the characters to 
the right of the decimal point. 
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The : 4 tells the computer that there are to be four digits to the right of the decimal point 

In this program also, we center the labels horizontally by subtracting half the length of the labels 
from the desired position for the center of the label. 



program SinAxes2(outPut) 5 

import dsl_lib5 {Set Graphics routines} 

const 

CrtAddr= 31 {address of internal CRT} 

Cont ro lklo rd= 05 {device control? 0 for CRT} 

type 

RoundType= <Up> Down > Near)5 {used by function Round2} 


v a r 

CharWidth: real! {width of char is world coords} 

CharHeiSht: real? {heisht of char is world coords} 

Text: strinSt2015 {temporary hoi dins place for text} 

Er rorReturn: inteSe r 5 {variable for initialization outcome} 

I: inteSer? {return variable from STRWRITE} 

X: i n t e S e r 5 

Y: real! 

C1 i p>(m i n » ClipXmax: real? {soft clip limits in x} 

ClipYmin» ClipYmax: real 5 {soft clip limits in y} 

$include 'DGLPRGrDataPoint'$ {function: y: = f(x) } 
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$pa $e$ {ft#**###**##*#**##***#*#****##***####**##*******####***##********#*##) 

procedure Cl i p|_ imi t (Xmin > Xmax > Y m i n » Y max: real) 5 

{ ----- > 

{ This procedure defines the four Global variables which specify where the > 
{ soft clip limits are. > 


b e S i n 

i f )<min<Xmax then be sin 
ClipXmin:= X min5 
Cl ipXftiax : = Xmax 5 
end 

else b e i in 

Cl i pXmin:=Xmax i 
ClipXmax: = Xmin 5 
e n d 5 

if YmirKYmax then beSin 
C1ipYmin:=Ymin5 
Cl i pYmax : = Y in a x i 
e n d 

else b e Sin 

Cl ipYmiri: = Yin ax 5 
ClipYmax:= Ymin5 
end? 
e n d 5 


{body of procedure "ClipLimit") 


\ 


Force the Minimum soft 
clip limit in X to be 
the smaller of the two 
X values passed int o 
the procedure. 


Force the minimum soft 
clip limit in Y to be 
the smaller of the two 
Y values passed into 
the procedure. 


/ 


{procedure "ClipLimit"> 


$pa3e$ {a**#****######*#**********#*###*##*#********#*#**##*#*#*##*##*******} 
procedure ClipDraw(Xl# Y1» X2, Y2: real)! 


{ This procedure takes the endpoints of a line t and clips it. The soft 
{ clip limits are the real tflobal variables ClipXmin> ClipXmax» ClipYmin> 
{ and ClipYmax. These may be defined through the procedure ClipLimit. 


label 
15 
type 
E d S e s = 

OutOfBounds 2 
va r 

Out tOutl>0ut2:Out OfBounds 
X t Y: real! 


(Left >RiSht >Top»Bottom)5 
set of EdSes5 


{possible edSes to cross) 
{set of edSes crossed) 


procedure Code(X> Y: real 5 var Out: OutOfBounds)5 


b e sf i n 
Out:=[]5 

if x<ClipXmin then Out:=[left] 
else if x>Clip)(max then 0ut: = CriSht]5 
if y<Cl ipYmiri then Out: =Out + [bottom] 
else if y>ClipYmax then Out:= 0ut + Ctop]5 
e n d 5 


{nested procedure "Code") 
{null set) 

{off left ed i e?) 

{off risfht edse?) 

{off the bottom?) 

{off the top?) 

{nested procedure "Code") 
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{----- 

b e S i n 

Code(XI»Y1>0utl) 5 
Code(X2*Y2*Out2)5 

while (Out IOC]) or (OutZOCl) do be Sin 
if (0utl*0ut2)<>[] then Soto 15 
if Out1< >C ] then Out:=0ut1 
else Out:=0ut2 5 
if left in Out then be Sin 

y:= Y1 + (Y 2-Y1)*(C1i pXm in-Xl)/(X2-X1) 
x : = C1 i pXinin 5 
end {left in Out?) 
else if risht in Out then beSin 

y : = Y1 + (Y2- Y1 ) * ( C1 i pXiti ax -X1) / (X2-X1) 
x:=C1ipXmax5 
end {riSht in Out?) 
else if bottom in Out then be sin 
x : = X 1 + ( X 2 - X 1) * (C1 i p Y m i n - Y1) / (Y 2 - Y1) 
y:=C1ipYmin5 
end {bottom in Out?) 
else if top in Out then be S in 

x:=X1+(X2-X1)*(C1ipYmax-Y1)/(Y2-Y1) 
y:=C1ipYmax5 
end! {top in Out?) 
if 0ut = 0u11 then beSin 

X1: = x 5 Y1: = y 5 C o d e ( x * y > 0 u 11) 5 


-...-. ) 

{body of procedure "ClipDraw") 

{f i Su re status of point 1) 

{f i Su re status of point 2) 

{loop while either point out of ranSe) 
{if intersection non-null> no 1ine) 

{Out is the non-empty one) 

{it crosses the left edse) 

5{adJust value of y appropriately) 

{new x is left edse) 

{it crosses risht edse) 

5{adJust value of y appropriately) 

{new x is risht edse) 

{it crosses the bottom edse) 

5{adJust value of x appropriately) 

{new y is bottom edse) 

{it crosses the top edse) 

5{adJust value of x appropriately) 

{new y is top edSe) 


{redefine first end point) 


end {0 u t = 0 u11?) 
else b e S i n 

X2: = x 5 Y2: = y 5 
end! {else b e S i n) 
end? {while) 
m o v e (.x 1 * y 1) 5 
1 i n e ( x 2 »y 2) ! 

1: end! 


C o d e ( x > y > 0 u 12) 5 {redefine second end point) 


{if we Set to this point* the 
{...is completely visible* so 
{procedure "ClipDraw") 


line...) 
draw it) 


$paSe$ {a*#*#*#****###*#**#*#**#*#**##*#****#*###**#*#******#*****#*#******#) 
function Round2(N> M: real? Mode: Round Type): real! 

{ ------ ) 

{ This function rounds "N" to the nearest "M"* accordinS to "Mode". This ) 
{ function works only when the arSument is in the ranSe of MIN I NT..MAX I NT. ) 
{-----) 


const 

e p s i 1 o n = 1E -10 5 

var 

Rounded: real! 

NeSative: boolean; 

b e S i n 

NeSative: = (N<0.0) ! 
if NeSative then be Sin 
N: = a b s (N) 5 

if Mode=Up then Mode:=Down 
else if Mode = Down then Mode:=L)p5 
e n d! 


{roundoff error fudse factor) 

{temporary h o1din S area) 

{f1 aS: "It is nesative?" ) 
{body of "Round2") 

{is the number nesative?) 

{work with a positive number) 
{if number is nesative* ♦..) 
{...reverse up and down) 
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case Mode of {should we round the number***} 

Down : Rounded : =t rune (N/M) *M 5 {♦.♦■left on the number line?} 

Up: b e S i n 


Rounded : =N/M 5 {**.risfht on the number line?} 

if abs(Rounded-round(Rounded))>e ps i1on then 
Ro und e d: = (trunc(Rounded) + l*0)*M 
else 

R o un d e d : = t r un c (Ro un d e d ) *M 5 


e n d 5 

Near: Rounded:=trune(N/M+M*0.5)*M! {...to the nearest multiple?} 

end? {case} 

if Negative then Rounded:=-Rounded! {reinstate the siSn} 

RoundZ:=Rounded5 {assiSn to function name} 

end? {function "RoundZ"} 

$paSe$ {********************************************************************} 
procedure XaxisClip(SpacinS» Location: real) Major: intesferi 
Majsize .Minsize: real)) 


{ ----- > 

{ This procedure draws an X-axis at any intersection point on the plotting } 
{ surface. Parameters are as follows: } 
{ Spacing; The distance between ticK marKs on the axis. } 
{ Location: The Y- value of the X-axis* } 
{ Major: The number of ticK marks to Se before drawinS a major tick } 
{ mark. If Major 2 5 1 every fifth tick mark will be major. } 
{ Majsize: The lenSth. in world units* of the major tick marks. } 
{ Minsize: The lenSth. in world units* of the minor tick marks. } 
{-------} 


u a r 


real * 
real 5 
real 5 
integer* 


SemiMajsize 
S e m i M i n s i z e 
Counter: 
b e S i n 

SemiMajsize:=MajSize#0.5) 
SemiMinsize:=MinSize*0.5! 

Counter:=0 5 

C1 i pD raw (C1 i pXm i n .Location *C1 i p] 


{X position of tick marks} 

{half of major tick size} 

{half of minor tick size} 

{keeps track of when to do major ticks} 
{body of procedure 
{calculate half of 
{calculate half of minor tick size} 
{start with a major tick} 

(max .Location)5 {draw the X-axis itself} 


"XaxisClip"} 
major tick size} 


X:=RoundZ(C1ipXmin>SpacinS*Major .Down)5 {round to next lower major} 
while X< = C1ipXmax do be Sin {loop until S reate r than ClipXmax } 

if Counter=0 then {do a major tick mark?} 

ClipDraw(X*Location-SemiMajsize*X .Location+SemiMajsize) 
else 

C1i pD r aw(X .Lo c ation-SemiMin siz e >X >Lo cation+SemiMin siz e)5 {do minor tick} 
Counter: = (Counter+1) mod Major! {keep track of which lenSth tick to do} 


X:=X+Spacin S 5 
end! {while} 
e n d 5 


{So to next tick position} 


{procedure "XaxisClip"} 
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$paSe$ {a**##***#***#*#*#*******#*##***##*#*#*#*#*#*##**#***#**#***##*##***#} 


procedure YaxisClip(SpacinS> Location: real? Major: integer! 

M a j s i z e > Min size: real)5 

{ . - . - . - . -} 

{ This procedure draws an Y-axis at any intersection point on the plotting > 
{ surface. Parameters are as follows: > 

{ SpacinS: The distance between tick marks on the axis. } 

{ Location: The X-ualue of the Y-axis. } 

{ Major: The number of tick marks to Se before drawing a major tick } 

{ mark. If Major=5> every fifth tick mark will be major. > 

{ Majsize: The length » in world units > of the major tick marks. > 

{ Minsize: The lenSth. in world units» of the minor tick marks. } 

{ —----- - ---— } 


var 

Y: 

SemiMajsize 
SemiMinsize 
Counte r: 
b e s i n 

SemiMajsize 
SemiMinsize 
Counte r:=0 5 


real ? 
real 5 
real 5 
i n t e S e r 5 

=Majsize*0.55 
= Minsize*0.5 5 


{ Y position of tick marks} 

{half of major tick size} 

■Chalf of minor tick size} 

{keeps track of when to do major ticks} 
{body of procedure "YaxisClip"} 
{calculate half of major tick size} 
{calculate half of minor tick size} 
{start with a major tick} 


ClipDraw(Location.ClipYmin .Location .ClipYmax)? 

Y: =Round2(Cl ipYmin .SpacinS*Major .Down) 5 {round to next lower major} 
while Y<=ClipYmax do be Sin {loop until Sreater than Ymax} 

if Counter=0 then {should we do a major tick?} 

ClipDraw(Location-SemiMajsize»Y.Location+SemiMajsize»Y) 
else 

ClipDraw(Location-Semi Min size >Y .Location+SemiMinsize>Y)5 
Counter:=(Counter+1) mod Major? {keep track of which size tick to do} 

Y:=Y+SpacinS 5 {So to next tick position} 

end? {while} 
end 5 


{procedure "YaxisClip"} 
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$paSe$ {**************#**#*#*****#*#**##**#**#***##***#**###*#*#****##***###} 
be Sin {body of pros ram "SinAxes2"> 

Sraphics.init! {initialize the Sraphics system} 

display.init(CrtAddr>ControlWord>ErrorReturn)5 {which output device?} 


if E r ro rRetu rn = 0 then be Sin 
set.aspect(511 1 389) i 
CharWidths=2*0♦045 
Cha rHeiSht:=2*0.08 5 
set_char_size(CharWidth>CharHeiSht)5 
Text s = 'VOLTAGE VARIANCE'5 
for )•(:=-3 to 3 do beSin 

move(-(st rlen(Text)*CharWidth)/2+X 
Stext(Text) 5 
e n d ! 

set_text_rot(0>l) 5 
CharWidth:=2*0.0255 
CharHeiSht:=2*0.04 5 
set_char_size(CharWidth>CharHeiSht)5 
Text:='VoltaSe'5 
move(-0♦97 >-(st rlen(Text) *Cha rWidth)/2) 5 
Stext(Text)! {label 


{output device initialization OK?} 
{use the whole screen} 

{char width: 41 of screen width} 
{char heisht: 41 of screen heisht} 
{install character size} 

{define text to be labelled} 

{make "bold" label} 

*0.002>0.9)5 {center label} 

{label the text} 


screen width} 
screen heisht} 


{vertical labels} 

{char width: 2.51 o' 

{char heisht: 41 of 
{install char size} 

{define text to be labelled} 

{start point of centered label} 
the text} 


T e x t: = 'Tim e (seconds)'! 
set_text_rot(l>0) ! 
move(-(strlen(Text)*CharWidth)/2> 
Stext(Text)5 

set-viewpo rt(0.1>0.99 >0.12 >0.7)5 
m o v e ( -1 >-1) ! 1 i n e ( - 1 > 1) 5 line(l>1)5 
set-window(0>100>0.IB >0.18)5 
C1 i pL imit(0 >100 >0.1B >0.18)5 
Xax i sC1ip(1>0.1G >5 >0.0008 >0.0004) ! 

YaxisC1ip(0♦0005 >0 >5 >2 >1) ! 
CharWidth:=l.3! 

Cha rHeiSht:=0♦0008! 
set_char_size(CharWidth>CharHeiSht) 
Tex t: = ' ' 5 

for X:= 0 to 10 do beSin 

s t rw r i t e (Te x t > 1 > I >X* 10:0) ! 


{define text to be labelled} 

{horizontal labels} 

0.92)5 {start point of centered label} 

{label the text} 

{define subset of the screen} 

! line(l>-D! 1 ine(-1 >-1) 5 {frame} 

{scale the window for the data} 

{define the soft clip limits} 

{draw the clipped X-axis} 

{draw the clipped Y-axis} 

{char width: 1.3 user X units wide} 
{char heisht: .0008 user Y units h i s h } 
{install character size} 

{erase previous definitions of s t r i n S } 
{eleven X labels} 

{convert number to strins} 


move(X*10-(st rlen(Text)*CharWidth)/2 >0.1593)5 


{center the label} 


Stext(Text) 5 
end! {for x} 

Y:=0.18! 
repeat 

strwrite(Text>l>X >Y:G:4)5 
move(-8 >Y-0♦0002) ! 

Stext(Text) 5 
Y:=Y+0,0025! 
until Y>0.18! 
for X: = 1 to 100 do be Sin 
Y:=DataPoint(X) ! 
if X =1 then move(X >Y) 
else 1in e(X »Y)! 
end! {for X:=l to 100} 
end! {ErrorReturn=0?} 
Sraphics_term! 
e n d. 


{label the text} 

{startinS Y position for Y labels} 

{convert number to strinS} 

{center the text vertically} 

{label the text} 

{next Y position} 

{t e rmin atin S condition} 

{100 points total} 

{Set a point from the function} 
{move to the first point...} 
{..♦and draw to all the rest} 


{terminate the Sraphics pacKaSe} 
{prosram "SinAxes2"} 



1-32 Introduction to Graphics 


Notice that even though the clip limits were still active when the axis labels were written, the text 
(whose characters are merely a series of short lines) was not clipped. This is because the 
GTEXT procedure does not call the user-defined clipping routine CLIPDRAW, it calls the DGL 
procedures MOVE and LINE. Thus clipping on labelled text is only done at the hard clip 
limits—the edges of the plotting surface. 

This is the final version of our progressive example. It is the version which created the initial 
display at the beginning of the chapter. 
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Miscellaneous Graphics Concepts 


Chapter 

2 


In the last chapter we discussed the more elementary graphics operations. In this chapter, we will 
discuss how to use some of those concepts more fluently, along with several other graphics 
operations. 

As in the last chapter, the demonstration programs in this chapter are stored for your conve¬ 
nience on the DGLPRG: or DOC: disc which was shipped with this manual. You are encouraged 
to run these programs while you are reading the manual, as they will make understanding the 
concepts much easier. 


Setting the Display Limits 

It is possible to define a subarea of the physical display surface by calling the DGL procedure 
SET_DISPLAY_LIM. The area thus defined is the area in which a subarea can be specified by 
the SET_ASPECT procedure. 

The parameters passed to SET_DISPLAY_LIM are expressed in millimeters. An example call 
would be: 

s e t_dis p1 ay _1iw(40♦5 >100 »30 >99 »E r ro r)i 

This would set the logical limits of the display device to an area whose: 

• left edge is 40.5 millimeters from the physical left edge of the display device; 

• right edge is 100 millimeters from the physical left edge of the display device; 

• bottom edge is 30 millimeters from the physical bottom edge of the display device; 

• top edge is 99 millimeters from the physical bottom edge of the display device. 

If the integer variable Error comes back with a value of 0, no error occurred. An error occurs if 
either the minimum X or Y is greater than the maximum X or Y, or if the requested area is even 
partially outside the physical display limits. In either case, the call is ignored and the variable 
E r r o r is returned non-zero. 
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More on Defining a Viewport 

In the last chapter it was mentioned that the SET_VIEWPORT procedure defined a subset of the 
screen in which to plot. More precisely, the SET_VIEWPORT procedure defines a rectangular area 
into which the SET-WINDOW coordinates will be mapped. That is, the left edge of the window will 
be placed upon the left edge of the viewport, the right edge of the window will be placed upon the 
right edge of the viewport, and the same will happen with the bottom and the top edges. 

Assuming that the SET-ASPECT procedure has been invoked to make use of the entire 
screen, the screen has default edge values in virtual display coordinates of 0.0 through 1.0 in 
the X direction. In the Y direction, it has the coordinates of 0.0 through 299/399 « 0.75 (for 
the Models 216, 220 and 226), 0.0 through 389/511 ~ 0.76 (for the Models 217 and 236), or 
0.0 through 767/1023 a 0.75 (for the Model 237, HP 98544A, HP 98545A, HP 98547A, HP 
98549A, HP 98700A, HP 9000 382 Medium-Resolution display), or 0.0 through 399/511 ~ 

0.78 (for HP 98542A and HP 98543A), or 0.0 through 1023/1279 * 0.80 (for HP 98548A, HP 
98550A, and HP 9000 382 High-Resolution), or 0.0 through 479/639 ~ 0.75 (on the HP 9000 
362/382 VGA display). The length of a unit in virtual coordinates is defined as “the length of 
one of the longer edges of the plotting area.” To recap the important characteristics of virtual 
coordinates: 

• The lower left of the plotting area is 0,0. 

• Virtual coordinates are isotropic; that is, one unit in the X direction is the same distance as one 
unit in the Y direction. 

• Virtual coordinates are limited to the range 0 through 1. The maximum coordinate on one side 
is 1, and the maximum coordinate on the other side is less than or equal to 1. 


As we mentioned in the last chapter, it is trivial to determine the longer edge of the screen in virtual 
coordinates, but substantially more involved to calculate the length of the shorter edge in virtual 
coordinates. Since the height of the screen is shorter than the width of the screen, the longer edge is 
in the X direction; therefore, the maximum X in virtual coordinates is 1.0. If the screen had been 
higher than it is wide, the maximum Y in virtual coordinates would have been 1.0. Now for the 
interesting part. 

Remember that virtual coordinates are isotropic: X and Y units are the same length. This means that 
the length in virtual coordinate units of the shorter edges of the plotting surface can be determined 
from the aspect ratio of the plotting surface. The aspect ratio is the ratio of width to height of the 
plotting surface. Thus, if the plotting area is wider than it is high, the ratio would be greater than 
one. If the plotting area is higher than it is wide, the ratio would be less than one, and if the plotting 
area were perfectly square, the ratio would be 1. You can determine the aspect ratios of both the 
virtual display and the logical limits of the plotting surface by calling the INQ_WS procedure with 
operation selector 254: 


const 

AspectRatio= 
type 

RatioTypes= 
RatioType= 
Mar 
Pac: 

I a r r a / : 

Ratios: 
Error: 



254 5 

•Cmnemon i c 

better 

than ma3] 

l c n i. 

.tmbe 

r > 



(Mi r t 

ua1Disp1 ay >Lo i ica 1Limit 

s) ; 






array 

CRatioTypesl of 

re a 15 






packed 

array 

[1..1] of char! 

{ \ 

These are 

the 

sun 

dries 

} 

array 

[1. . 1] 

of integer! 

{ \ 

n e e d e d b y 

the 

cal 

1 to 

} 

Rat i oT 

y p e 5 


( / 

" i n p _ w s". 




} 

i n t e $ e 

r 5 


{ / 





> 


ini-ws(AspectRatio >0 >0 >2 >Pac >I a r ray>Ratios »E r ro r)5 c r/if Erro r< >0 
then cr/if write In('Error ' ?Error:0» ' in determining aspect ratio.')? 
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The user can now use Ratio [Mi rtual Display] and Rat ioCLosicalLi wits] to determine what 
values are used to set the aspect ratio. (For more information on the INQ_WS procedure, look 
up this procedure in Appendix B.) 

Usually, however, the user knows the aspect ratio because he explicitly set it at the beginning of the 
program, using the SET_ASPECT procedure. 

Using the value for the aspect ratio, we can derive a statement which is almost indispensible when 
writing a general-purpose statement for calling the SET_VIEWPORT procedure. Assuming the 
aspect ratio is contained in a variable called AspectRatio: 

if AspectRatio>1*0 then besin 
M a x V i r t X: = 1.0 5 
MaxVirtY:=l/AspectRatio 
e n d 

else b e sin 

MaxMirtX;=AspectRatio5 
MaxVir t Y: = 1.0 
e n d 5 

These statements define the maximum X and maximum Y in virtual coordinate units. This will 
work no matter what plotting device you are using. Now that we have NaxVirtX and 
MaxMirtY defined, we have complete control of the subset we want on the plotting surface. 
Suppose we want: 

• the left edge of the viewport to be 10% of the hard clip limit 1 width from the left edge, 

• the right edge of the viewport to be 1% of the hard clip limit width from the right edge, 

• the bottom edge of the viewport to be 15% of the hard clip limit height from the bottom, 
and 

• the top edge of the viewport to be 10% of the hard clip limit height from the top. 

We would specify: 

LeftEd Se:=0.1*MaxVirtX 5 
Ri ShtEdSe:=0.99*MaxVirtX 5 
BottoniEd Se:=0*15*MaxVirtY 5 
TopEdSe:=0*9*MaxVirtY5 

SET-VIEWPORT(LeftEd3e»RiShtEdSe>BottowEdSe»TopEdSe)5 


1 Hard clip limits are those limits set by the SET_DISPLAY_LIM procedure. 
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Calculating Window Limits 

In our progressive example in the last chapter, we were using the sometimes unrealistic practice of 
using constants in the SET_WINDOW procedure call. Often you don’t know until the program is 
running what the values to be passed to SET_WINDOW are. The X values which were used in the 
SET_WINDOW procedure call (0 and 100) came from the fact that there were 100 data points. The 
Y values (for this type of plot) must be determined either by you or by the computer itself. If you 
want the computer to determine the X or Y minimum and maximum, you could do it in the 
following manner. Assuming that the X values are in a real array called X: 

const 

MaxReal= 1,797G931348G231E3085 


Xmax:=-MaxReal5 {Smaller than smallest possible ualue in array} 
for I:=1 to N do {N is the number of elements in the array} 
if XCIDXmax then Xmax : = X[ I ] 5 

A similar method can be used for figuring the minimum value of the X array: First, assign Xm i n 
to be + MaxRe a 1. The reason this is done is to ensure that at least the first value in the array is 
used. Then, check through the array of X values, and if the value of any element is smaller than 
the current minimum, it becomes the new minimum. 

Of course, the minimum and maximum Y values can be found in the same manner. 
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Drawing a Window Frame 

The SET_VIEWPORT procedure specifies where in the logical display to put the plot—the 
subarea of the plotting surface in which to plot. This is the area which the SET_WINDOW 
procedure affects. 



Quite often, a frame is desired around the current window to set it apart from the labels outside 
the window, and so forth. If the window limits are known (or it is convenient to find out), you 
can just do a MOVE and four LINEs, as was done in the last chapter. The way it was done in the 
last chapter was to draw the frame after the SET_VIEWPORT call, but before the 
SET_WINDOW call. Since we had not yet set our own window, the default window limits were 
- 1 to 1 in both directions. Therefore, we could say: 

mo u e <-1 t -1) ! 1in e(-1 t 1) 5 1 i n e (1 »1) 5 1 i ne(1 »-1) 5 1 i ne (-1 > -1) 5 

This is not always the case, however. If you do not know the current window limits, you can 
interrogate the system through the DGL procedure INQ_WS. The values returned from there 
can be used to draw the frame. The following lines of code demonstrate how to do this. First, 
the INQ_WS routine is accessed to determine the current window limits, and then a box is 
drawn around those limits. 
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const 

WindowLimits= 4505 {mnemonic better than matfic number} 

type 

LimitOrder= (Xmin> Xmax t Ymin>Ymax)5 

Li«itType= array ELimit0rder3 of real 5 

uar 

Pacs packed array C1 ♦ ♦ 1 ] of char? { \ These are the sundries > 

Iarray: array C1 ♦ . 1 ] of integer! { \ needed by the call to > 

Window: LimitType! { / the DGL procedure } 

Error: integer 5 { / "inq_ws". } 


inq.ws(WindowLimits >0>0>4 >Pac »Iarray>Window >Erro r)5 


if Er ro r = 0 then besin 

moue(WindowCXmin3>WindowEYmin])5 
1in e(Win d ow E Xmin 3>Win d ow E Ymax 3) 5 
1in e(Win d o w E Xm a x 3 »Win d ow E Ym a x 3)5 
1 ine(WindowEXmax3>WindowEYmin3)5 
line(WindowEXmin3 fWindowEYmin3) 5 
end {Error=0?> 
else writeln('Error '> E r r o r:0 >' occurred 


{moue to lower left corner} 
{draw to upper left corner} 
{draw to upper ritfht corner} 
{draw to lower ri$ht corner} 
{draw to lower left corner} 

in "Frame"')5 



Miscellaneous Graphics Concepts 2-7 


Turning Displays On and Off 

If you ran the last chapter’s programs, and do not have a bit-mapped display, you probably noticed 
that the graphics screen was turned on automatically to show you what was being plotted, but the 
alpha screen was not turned off at the same time. If you do have a bit-mapped display (e.g., Model 
237), both alpha and graphics occupy the same screen; the screen is either on or it isn’t. 

In the case of nonbit-mapped displays, as soon as the program ended, the Main Command Level 
prompt appeared at the top of the screen, obstructing the view of the top portion of the graphics 
image. Th is can be mildly annoying as it is, having to turn off the alpha raster by pressing the 
[ GRAPHICS ) key, but it rapidly gets more annoying if your program generates printed output and 
plotted output which are not intended to be viewed simultaneously. 

What is needed is a way to turn either the alpha raster or the graphics raster on or off at will. There is 
a way to do this, by calling the OUTPUTJESC procedure with operation selectors 1050 or 1051. 
Or, if you prefer a more readable method, the you could write a procedure to do the operations. 
Assume that there has been an enumerated type declared: 

type 

DisplayStates= (Off ♦ On)5 


Here is an example section of code to show you how to turn the displays on or off. The 
parameter used is assumed to be of the type declared above. 


{#******#ft*#*#*#*###*###*#*###***###*##*##***#*###*ft##**###*#******#####*#*#*} 

procedure AlphaCState: boolean) ? 

{ -------- > 

{ This procedure turns the alpha raster on or off (true=on* false=off). > 

{.- ----- --) 

const 

AlphaRaster= 1051 5 {mnemonic better than masic number) 


var 

AlphaOn: array C1 «-* 13 of integer 

Rarray: array [ 1 ♦ ♦ 1 ] of real! 

Error: integer* 

be Sin 

if St at e = 0n then AlphaOn C1]: = 1 
else A1pha0nE1]:= 0 * 

outPUt_esc(AlphaRaster»l*0 .AlphaOn .Rarr 
if ErrorOO then write In ('Er ro r '.Error 
e n d 5 


{ \ This is all stuff that > 
{ > is needed by the ) 

{ / " o u t p u t _ e s c 11 procedure. ) 

{procedure "Alpha") 

{"On" is a boolean constant: true) 

y . E r r o r) 5 

0 >' in procedure "A1pha". ') 5 
{procedure "Alpha") 


Similar code could be generated for turning the graphics display on and off. The references to 
“Alpha” should be changed to “Graphics” just to avoid confusion, and the operation selector 
should be changed to 1050. 
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Conversion Between Coordinate Systems 

Many times, you’ll probably want the ability to convert back and forth between virtual display 
coordinates and world coordinates. One of the most-used areas where this is desired is where you 
want to specify some parameter in units relative to the display device, not the graphical model 
currently in use. For example, it is often desirable to specify character sizes as, say, 6% of the screen 
height. Or, you want to draw an X axis whose tick marks are 1% of the screen height. These, and 
other places, the values could be specified in world coordinates, but it is an inconvenience to have 
to specify a constant-sized line or character in units which are varying all over the place. For 
example, if you have a general-purpose plotting routine which gets it data from an external source, 
it doesn’t know until it gets the data what the window limits are to be. It is only after the window 
limits are known that the character sizes would be specified. 

If we could specify these things in virtual display coordinates, we could have the computer do the 
dirty work of converting from virtual coordinates to whatever the current world coordinates are. 

To convert from one coordinate system to another, there are three steps involved: 

1. Determine, as a fraction, how far into the old system the point of interest is. For example, if 
the old system goes from 10 to 20 in X (calculations for Y proceed with identical steps), and 
you want to find out how far 13 is into that range, you take: 

01 dF rac t i on : = (X-01 dXirun ) / (01 dXmax-01 dXwin) 5 

or, using our numbers, 

01dFraction:=(13-10)/(20-10)5 

This evaluates to 0.3, and, sure enough, 13 is three tenths of the way between 10 and 20. 

2. Take the fraction found in the previous step, and go the same distance into the new 
coordinate system. For example, say our new coordinate system goes from 300 to 400. 
To go into this new range the same fraction of the way, you take: 

NewDistance:=01dFraction*(NewXmax-NewXmin)i 

Again, putting our numbers into the expression, 

NewDistance:=0♦3*(400-300) ! 

This evalutes to 30, and, sure enough, we have to go thirty units into the new coordinate 
system. 

3. To “go into” the new coordinate system means that we have to add the new coordinate 
system’s minimum value to the distance into the new system so that the distance into the 
new system is relative to the same starting point as the system itself. 

NewPoint: =NewDi5tance+NewXmin I 

or, in our units, 

NewPoint:=30+3005 

And 330 is the desired point in the new coordinate system. 
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The “old” coordinate system and the “new” coordinate system can have any maxima and minima 
(you are not restricted to converting between the world coordinate system and the virtual coordin¬ 
ate system), and the point of interest may be inside the range, one of the end points, or outside the 
range; it make no difference to the mathematics. 

Following are two routines which convert between virtual display coordinates and world coordin¬ 
ates. 


{a####**#*#*##*#**#*##**##**#*##*##**####*######*#*###**###*#*####*#*###*****} 
procedure C o nv e r t Uir t u a 1 T o W o r 1 d(Vir t ua 1X » VirtualY: real! 

uar Wo r 1dX t W o r 1 d Y: real)! 


{ - 

{ This routine converts any point in virtual coordinates > whether on the 
{ plotting surface or not > into world coordinates* 

{ - 


} 

> 

} 

} 


const 


WindowLimits= 

450! 


{mnemon i c 

better 

than maSic number} 

y i e w p o r t L i m i t s 

= 451 ; 


{... he re » 

too < 


> 

type 







L i m i 10 r d e r = 

(X min * X max > 

Ymin > 

Y max) ! 




L i m i t T y p e = 

array CLimitOrde r3 

of real ! 




v a r 







Pac: 

packed array 

Cl . . 13 

of char! 

{ 

\ 

These are the sundries 

I a r r a y: 

array C1♦.13 

of in t e Se r 5 

{ 

\ 

needed by the call to 

W i n d o w: 

L i m i t T y p e 5 



{ 


the DGL procedure 

Viewport: 

L i m i t T y p e 5 



{ 

/ 

" ins.ws"♦ 

Error: 

i n t e S e r 5 



{ 

/ 


b e s i n 



{body of 

procedure "ConvertVirtualToWorld 


ins.ws (Wi n d owL i in i t s >0 >0 >4 >Pac t I a r ray >W i ndow >E r ro r) 5 
if Erro r< >0 then write1n( 'Error '»Erro r:0 » 

' in determining window limits in "ConuertVirtualToWorid".')! 
inn.ws (Vi ewpo rt!_imi ts >0 »Q >4 > Pac »I a r ray Viewport »E r r o r) ! 
if ErrorOO then w rite In ('Error ' »Error:0» 

' in determining viewport limits in "Conve rtVi rtualToWo rid" * ') ! 

Wo rl dX: = (V i rt ualX-V i ewpo rt CXmin 1) { \ Calculate X distance from left.** > 


/(Viewpo rt[Xmax 3 - Viewpo rt CXmin 3) { \ ...convert to a f rac t i on ♦ ♦ . > 

*(WindowtXmaxl-WindowCXmin]) { / ...So same fraction into world... > 

+WindowtXmin] ! { / ...add Xmin to Set value. > 

WorldY:=(yirtualY-yiewportCYmin1) { \ Calculate Y distance from bottom...} 

/(yiewportCYmax3-yiewportCYmin]) < \ ...convert to a fraction... } 

*(Win dow[Ymax 3 - Window!Ymin 3) { / ... So same fraction into world... > 

+WindowCYmin35 { / ...add Ymin to Set value. } 

end! {procedure "Conver t yirtualToWorid" } 


} 

} 

} 

> 

} 

} 
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<************■*•***************************************************************> 


procedure C o n ve r t W o r1dT o Virt ua 1(W o r1d X t Wo r1d Y: real? 

var VirtualX» VirtualY: real)! 

{ -- -> 

{ This routine converts any point in world coordinates > whether on the > 
{ plotting surface or noti into virtual coordinates. } 

<---------> 

const 

WindowLimits= 4501 {mnemonic better than magic number} 

ViewportLimits= 4515 {...here>too. } 

type 

Liirii tOrde r= (Kmin > Xmax t Ymin > Ymax ) 5 

LimitTy pe = array CLimi10rde r 3 of real! 

var 


Pac: packed array C1..1] of charl { \ These are the sundries > 

I a r r a y: array E1..11 of integer! { \ needed by the call to > 

Window: LimitTypel { > the DGL procedure } 

Viewport: LimitTypel { / "inq_ws". > 

Error: integer! {/ } 

b e g in {body of procedure "Conve rtWo r1dToVirt ua 1" > 

inq_ws(WindowLimits>0>0>4 >Pac 1 1 a r ray >Window >E r ro r) 1 
if ErrorOO then writelnt'Error ' »E r r o r: 0 t 

' in determining window limits in "ConvertWor1dToVirtual".')5 
in q_w s(Mie w p o r t Limit s 1 0 »0 > 4 »P a c »I a r r ay > Vie w po r t »E r r o r)1 
if ErrorOO then write In ( 'Erro r ' >Error:0» 

' in determining viewport limits in "ConvertWorldToVirtual". ') 5 
MirtualK: = (WorldK-WindowCXmin]) { \ Calculate K distance from left... > 


/(WindowCXmaxl-WindowCXminl) < \ .♦ .convert to a fraction.♦♦ } 

*(ViewportCXmax3-Viewport[Kmin3) { / ...go same fraction into world... } 

+ ViewportCXmin] 1 { / ...add Xmin to get value. } 

Virtua 1Y: = (Wo r1dY-WindowCYmin]) { \ Calculate Y distance from bottom...} 

/(WindowCYmaxl-WindowCYmin]) { \ ...convert to a fraction.. ♦ > 

*(ViewportCYmax]-ViewportEYmin1) { / ...go same fraction into world. ♦♦ } 

+ViewportEYmin15 { / ...add Ymin to get value. } 

end! {procedure"ConvertWorldToVirtual"} 
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More on Labelling a Plot 

To help you get a better grasp of the concept of labelling, there will be four small sections, each 
of which demonstrates something more about the concept of labelling a graph. 

The Character Cell 

The first program deals with the relationship between the size of the character, per se, and the 
size of the character cell—that rectangle in which the character is placed. This program is on 
file “CharCell” on the DGLPRG: or DOC: disc. 



pro3raw Ch arCe11(output) 5 
import d 31_1ib > d 31_in h 5 
const 


C rt = 

Control 3 

type 

Lo r3Type = 
Str255= 


35 
0 5 

1, ,95 

st rin 3[255]5 


var 

Error: 

I » X » Y: 


{pro3ram name same as file name} 
{access the necessary procedures) 

{device address of 3raphics raster) 
{device control word? iSnored for CRT) 

{the valid values to pass the " L o r3 " ) 
{for the procedure "Glabel") 


i n t e 3 e r 5 
i n t e 3 e r 5 


{disp1 ay_init return variable? 0 = ok) 
{loop control variables) 
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{***###***#***##*#****##*#*#*#*■#******#**#***#*#**#*#*##********#***#} 


$pa3e$ 
b e 3 i ri 
Sraphics.init5 

display_init(Crt>Control>Erro r)5 
if Er ro r = 0 then be 3in 
set-aspect(511>389) i 
m o v e ( -1 > -1) ! 1 i n e ( -1 > 1) 5 
set-window(-2 >38 >-7.5 >22. 
set_char_size(1>2)5 
(it o u e (1 >21) > 

3text('Size of Character 
for X:=0 to 38 do be Sin 
for Y:= 0 to 15 do be3in 
move (X - 0 ♦ 1 > y + 0.1) 5 
1ine(X+0.1>Y-0,1)5 
move (X+0 > 1 > Y+0.1)5 
1in e(X -0.1»Y-0.1)5 
end? {for y> 
end? {for x } 
for I: = 0 to 3 do be3in 

move(1*0>0)5 1 ine(I*9 >15)5 
e n d i 

set_char_size(9 >15)5 
(it o y e (1 > l\) 5 
31 e x t ( ' G b y 5 ') I 
end? {Error=0?> 

3raphics_ter(iti 
end. {pro3ram "CharCell"> 


{body of pro3ram "CharCell"} 
{initialize 3 r a p h i c s library} 
{initialize CRT} 

{if no error occurred...} 

{use the whole screen} 
lined >-1) 5 1 ine ( -1 >-1) 5 


{bi3 characters} 

{3o to startinS position} 
{label some characters} 

{end of conditional code} 
{terminate Sraphics library} 
{end of pro3ram} 


lined >1)5 


5) 5 


{define appropriate window} 


in Character Cell')i 
{ \ 

{ \ 

{ \ 

{ \ 

{ / 

{ / 

{ / 

{ / 


\ 


Do main label. 


Draw the four 9x15 
character cells. Make 
a frame around each> 
and an X at every 
point. 


{draw a frame around each char cell} 
1ine(1*9+9>15)5 1 ine(1*9+9>0)5 line(1*9>0)5 


As the diagram shows, a character is drawn inside a rectangle, with some space on all four sides. 
Both the rectangle’s width and height are specified by the values passed to the DGL procedure 
SET_CHAR_SIZE, and are measured in world coordinates. This rectangle is subdivided into a 
grid of 9 wide by 15 high. Characters are drawn in this framework. 

The current pen position—that position moved to before writing a label—is one unit to the right 
and four units up from the lower left-hand corner of the character cell. For example, when 
labelling a lower-case “b”, the bottom of the longer vertical line would end up at the point 
moved to before labelling. Also note that there doesn’t have to be any part of the character at 
the current pen position, as in the upper-case “G” in the plot. For characters which have 
descenders (lines which go below the “baseline” of the character cell), the current position is 
still relative to the lower left corner of the character cell , not the character. 

Of course, the little x s in the plot above are not drawn when you label a string of text; they are 
there solely to show the position of the characters within the character cell. 

The DGL procedure SET_CHAR_SIZE specifies the height of the character cell, not the charac¬ 
ter itself. 
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Setting Character Size 

In a previous section, we discussed translation of points between coordinate systems. And as it 
was mentioned before, often it is desirable to be able to specify character sizes in screen- 
dependent units, rather than model-dependent units. 

As we saw in the last chapter, there is a DGL procedure called SET_CHAR_SIZE which sets an 
attribute of all subsequent characters, namely the width and height of the character cells. When 
using SET_CEfAR_SIZE, the characters are scaled using the same scaling as the objects drawn. 

In other cases, however, the text size should be related to the display device, rather than the 
user’s graphics model. For example, when a general-purpose display routine gets data from a 
file, or some other source, it probably does not know until the data is actually received what the 
range of the data is. Thus, the window limits are calculated in the program. To get the title of the 
plot of a consistent size, you would have to convert the actual size of the label relative to the 
display device to the same size expressed in world coordinates so they can be sent to 
SET_CHAR_SIZE. 

The following piece of code shows you how to define character cell height in virtual coordin¬ 
ates, and the width is defined as a fraction of the height; thus, it is an aspect ratio. The reason 
that the aspect ratio is desired, rather than the character cell width, is that if you want characters 
with a constant shape, you would just have to take your first parameter, and multiply it by a 
constant. Thus, in effect, you have just specified the aspect ratio. 

The values passed into the routine are converted into character cell width and character cell 
height in world coordinates, which the DGL procedure SET_CHAR_SIZE needs. 
SET_CHAR_SIZE is called and the converted values are passed to it. The converted values are 
retrievable by invoking the INQ_WS procedure with operation selector 250. The character cell 
height and width are needed by another piece of code (which actually does the labelling) 
covered shortly. 

Here is how to specify character size in virtual coordinates, with an aspect ratio, and convert it 
into parameters appropriate for the SET_CHAR_SIZE routine. Notice that the conversion 
routine covered a few sections back is used: 

y a r 

Width: real? {temporary spot for width} 

X0 > Y0: real! {0 >0 (virtual) in world) 

X1 * Y1: real? {1>1 (virtual) in world) 


Con ve r tUir t ua 1To Wo r1d(0 >0 >X0tY0) i 
ConvertUirtualToWorid(1tl»Xi tYl)5 
HeiSht:=Hei$ht*(Y1-Y0) ; 
Width:=Hei3ht#AspectRatio*(Xl-XO)/(Yl 
set_char_size(Width>Hei3ht)5 


{convert 0 >0 in virtual to world) 
{convert 1 »1 in virtual to world) 
{convert height in virtual to world) 
-Y0)! {convert width in virtual to world) 
{invoke the parameters) 
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Here is the graphical output of a program which demonstrates the use of the procedure 
CHARSIZE, and then the program itself: 



prosraw CsizePro S (output) 5 

import dsl_lib. dsl_in°i; {Set Sraphics routines} 

const 

Crt= 3! {address of internal CRT} 

Control 1 05 {device control! 0 for CRT} 

var 

Error: integer! {variable for initialization outcome} 

I> J: inteSer. {utility variables} 

Strns: strinsfClOl ? {temporary holdinS place for strinSs} 

^include 'DGLPRG:ConvUtoW '$ {virtual-to-worid conversion} 

$paSe$ {st-*******************************************************************} 
procedure CharSize(Heisht> AspectRatio: real)! 

{- - - ------ } 

{ This procedure defines character cell size and the puts the Width and } 

{ Height values into Global variables for later use ♦ The arguments passed } 

{ in are the heisht of the character cell in VIRTUAL coordinatest and the } 

{ aspect ratio of the character cell. The values for the window limits } 

{ may be any thins 5 they are taken into account and do not affect the size } 

{ of the characters, since they are defined in virtual coordinates. This } 

{ procedure, a Ions with LorS and Ldir. define Slobal variables for use by } 


{ Glabel, } 

{-- .. . . . .. ....-} 
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v a r 

Width: real! 

>(0 > YO: real? 

X1 > Y1: real? 

b e 3 i n 

Conu e rtMi rt ua 1ToWo r 1 d (0 >0 >XO > YO) 
C o n v e r t V i r t u a 1T o W o r 1 d ( 1 > 1 > X1 > Y1) 
Hei3ht:=Hei3ht*(Yl-Y0) ; 


{temporary spot for width) 

{0 >0 (virtual) in world) 

{1 > 1 (virtual) in world) 

{body of procedure "CharSize") 
{convert 0 >0 in virtual to world) 
{convert 1 >1 in virtual to world) 
{convert height in virtual to world) 


Width:=HeiSht#AspectRatio#(Xl-XO)/(Y1-Y0)! {convert width in virtual to world) 


set_char_size(Width>Heisht) ! 
e n d ; 


{invoke the parameters) 
{procedure "CharSize") 


$pa3e$ {*#****#***#**************##*#*#*#***###***#*####*#*******#*#*#**#*#*) 


b e 3 i n 

3raphics_init5 

d i s p 1 a y _ i n i t (C r t > C o n t r o 1 > E r r o r ) 
if Er ro r = 0 then be3in 
set-aspect(511>389)5 
s e t_win d ow(1>2 >100 >0) ! 
for I: = 1 to G do be3in 
CharSize(1*1*0*01>0* G) ! 
move(1>I*I#I#0.fl+I) ; 
s t rw r i t e (S t r n 3 > 1 > J > I * 1:0) ; 
3text(Strn3+'Z')5 
end; {for i) 
end? {Error=0?) 

3 raphics_te rm 5 
e n d * 


{body of program "CsizePro3") 
{initialize the Graphics system) 
{which output device?) 

{output device initialization OK?) 
{use the whole screen) 

{scale the window for the data) 
{six different character sizes) 
{install character size) 

{move to a appropriate place) 
{convert number to string) 

{label the string) 


{terminate the Graphics package) 
{program "CsizeProsf") 


The FOR loop writes lines of text on the screen with different character sizes. Incidentally, notice 
also the SET_WINDOW procedure. It specifies a Ymin larger than the Ymax. This causes the top of 
the screen to have a lesser Y-value than the bottom. This is perfectly legal. 

Again, character cell height, when using the algorithm above, is measured in virtual coordinates, 
and the definition of aspect ratio for a character is identical to the definition of aspect ratio for the 
hard clip limits mentioned earlier: the width divided by the height. Thus, if you want short, fat 
letters, use an aspect ratio of 1.5 or larger. If you want tall, skinny letters, use an aspect ratio less 
than about 0.5. If you call the above routine: 

CharSize (0.03 >0.6) ; Cell 3% virtual coordinate units high, aspect ratio 0.6. 

CharSize(0.06>0.3) ; Cell 6% virtual coordinate units high, aspect ratio 0.3 (tall 

and skinny). 

Ch a rS i ze (0 ♦ 1 >2) 5 Cell 10% virtual coordinate units high, aspect ratio 2 (short 

and fat). 
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Setting the Label’s Direction 

We saw in the last chapter that label could be rotated by using the DGL procedure 
SET_TEXT_ROT, which specifies angles in a run/rise format. Many people, however, deal with 
angles more easily than run/rise ratios. Again, the angular value is converted to run/rise numbers by 
taking the cosine and sine of the angle, respectively: 

set.text_ rot(cos(An Sie) >sin(An sie))! 

You could define a procedure for which the angle could be specified in degrees, radians, or 
grades 1 , depending on the value of the units parameter, which, being an enumerated type, can 
have the value DEG (degrees), RAD (radians), or GRAD (grades): 

An31eType= (De3> Rad> Grad)! 

The value passed in, in the unit of measure defined by the units parameter, must be converted 
to radians. Radians are the only units understood by the trigonometric functions in Pascal. 
Conversion is accomplished by a simple division. (The division could be changed to a multiply 
by the reciprocal. This would increase the speed with little loss of understandability.) 

const 

De3_per_rad= 57.2957795131! {180/pi: for converting decrees to radians} 
Grad_per_rad= G3.GG19772368! {200/pi: for converting 3rads to radians} 


case Units of 

D e 3: Direction:=Direction/De3_per_rad! 
Rad: ! 

Grad: Direction:=Direction/Grad_per_rad! 
end! {case} 

set_text_rot(cos(CharTheta) .sin(CharTheta)) ! 


{decrees to radians} 

{correct units already} 

{3rads to radians} 

{invoke the new text direction} 


For example, assuming you call the routine Labe IDi recti on, and that there is a constant called 
“Pi” which has a value of 3.1415926535897: 


L a b e 1D i r e c t i o n ( 0 >D e 3 ) ! Writes 

LabeIDirecti on ( Pi/2 .RAD) ! Writes 

LabelDirection(lflfGrad) 5 Writes 

LabelDirection(Pi .Rad) ! Writes 

LabelDirection( 270 >DEG ) ! Writes 


label horizontally to the right. 

label vertically, ascending. 

label ascending a gentle slope, up and right. 

label upside down. 

label vertically, descending. 


1 One revolution = 360° = 2-rr radians = 400 grades. 
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Here is a plot demonstrating the specification of a label’s direction by a genuine angle: 



program LdirProsf! 
import d tf1_1ib 5 


{program name same as file name) 
{access the necessary procedures) 

const 

C rt = 

35 

{device address of Graphics raster) 

C o n t r o 1 = 

0 5 

{device control word! ignored for CRT) 

type 

An SType = 

( De sf t Rad > G r a d ) 5 

{used by procedure LabelDirection) 

var 

Error: 

integer? 

{disp1 ay_init return variable! 0 = ok) 

I »J: 

inteSer? 

{loop control variable and spare) 

S t r n S: 

strinSCSO] 5 

{s t rin S to label) 

CharTheta: 

re a 1 5 

{Global variable for label direction) 


$pase$ <****************************************************-x-***************> 


procedure LabelDirection(Direction: real 5 Units: AnSType)5 

{ - > 

{ This procedure is used in conjunction with LabelOriSint C h a r 8 i z e and ) 
{ Glabel. It sets the labellinS direction to be used> and places the ) 

{ direction into a Global variable so Glabel can use it* > 

{ - ) 

const 


DeS_per_rad= 57*29577951315 {180/pi: for converting decrees to radians) 
Grad_per_rad= B3.BB197723B85 {200/pi: for converting Srads to radians) 
beSin {procedure "LabelDirection") 

case Units of 

Des: Direction:=Direction/DeS_per_rad5 {decrees to radians) 

Rad: 5 {correct units already) 

Grad: Direction:=Direction/Grad_per_rad5 {Srads to radians) 
end! {case) 

CharTheta:=Direction5 {put into a Global variable) 

set_text_rot(cos(CharTheta) >sin(CharTheta))5 {invoke the new text direction) 
end? {procedure "LabelDirection") 
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******************************************************************** 


b e $ i n 

Jraphics-initj 

display_init(Crt^Control>Erro r)5 
if Error = 0 then besfin 
set_aspect(511»389 >i 
set-window(- 1 >1t-1»1)5 
set_char_si 2 e(0.05 >0.08)5 
for I:=0 to 35 do be?in 
St rn ?: = ' '! 

s t rw rit e(s t rn ? »1»J >1*10:0)5 

Strn?: = / -'+Strn?+' de?'» 

L a b e 1D i r e c t i o n (I * 10 > D e $) 5 
in o v e (0 1 0) 5 
?text(Strn?) 5 
end? {for I > 
end! {Error=0?> 

? raphics_te rm 5 
e n d. 


{body of pro?ram "LdirPro?"} 
{initialize Graphics library} 
{initialize CRT} 

{if no error occurred...} 

{use the whole screen} 

{define appropriate window} 

{set the size for the characters} 
{every ten d e ? r e e s } 

{empty the s t rin ?} 

{convert the loop variable to decrees} 
{attach prefix and suffix} 

{specify label direction} 

{move to the center of the screen} 
{label the text} 


{terminate Graphics library} 
{pro?ram "LdirPro?"} 


When a character size is selected whether through the DGL routine SET_CHAR_SIZE or 
through the utility routine CHARSIZE, the width and height associated with a character cell are 
defined for an unrotated character cell. Thus, when a character is rotated, its shape does not 
change, even though its width (measured along the X axis) and height (measured along the Y 
axis) are not the same directions as the display device’s axes. 

In the preceding plot, you may have noticed that the hyphens do not precisely meet in the 
middle. This brings up another point: when you move to a point and then write a label, which 
part of the label ends up at that point? In other words, how is the label justified? 

Justifying Labels 

On a label written by the GTEXT procedure, the label is always justified at the lower left-hand 
corner of the label. Unfortunately, this does not lend itself to centering text, which is often a 
very desirable thing. It would be nice if we could programmatically select how the label should 
be justified. For the progressive example we were working on in the last chapter, the main title 
needed to be as far toward the top of the graph as it can be, and at the same time, centered 
horizontally. The following addresses just this kind of need. 

For horizontal centering, there are three possible choices: left-justified, centered, and right- 
justified. For vertical centering, there are also three choices: bottom-justified, centered, and 
top-justified. Thus, there are nine possible combinations of values which can be sent to the 
LABELJUSTIFY routine: left, centered, and right for the X direction, and for each of these, 
bottom, centered, and top for the Y direction. 

Assume there are two enumerated types declared: 

HJustifyType = (Lef t »HCente red>Ri?ht)! 

UJustif yTy pe=(Bottom.MCente red.T op) j 
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Label justification is relative to the label, not the plotting surface, and it is independent of the 
current label direction. For example, if you have specified: 

• upper left label justification, 

• and label direction of 90°, 

• a move to point (6,8), 

and then write the label, it is written going straight up, not horizontally: 


U 

u 

tr 

h 

J ^ 

0 5 fc 

Lower Left y 5 E 
Corner ^ >_ go 


Therefore, it is the upper left corner of the label which is at point 6,8 relative to the rotated label. 
However, it is the lower left corner of the label which is at 6,8 relative to the plotting device 
because the label has been rotated. 


Note that two things are obtained by calls to the INQ_WS procedure: the current pen position, 
and the current character size (in world coordinates). 


If you are going to use the label justification scheme just described, you will need to write your 
own labelling routine which takes into account the current justification values. Label justifica¬ 
tion gets a little tricky when dealing with user-definable label direction, as you can see in the 
section of code below. 


The following three global variables are assumed to exist: 

• HJustification: The currently-defined horizontal justification. This is of the previously- 
mentioned type HJustifyType. 

• ^Justification: The currently-defined vertical justification. This is of the previously- 
mentioned type HJustifyType. 

• CharTheta: This real variable is the current label direction, expressed in radians. We need to 
keep this in a global variable because there is no operation selector we can send to 
INQ_WS to determine it. 


const 

CharSizeCode= 

C u r r e n t P o s i t i o n = 
type 

Position s = 

PositionType= 
CharAtt ributes = 
CharAtt rType = 


2505 {mnemonic better than masic number} 

2595 {ditto} 

(X»Y>5 

array [Positions! of real! 

(Width > H e i S h t h ) 5 

array [CharAttributes! of real? 
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uar 

Chars: 
Charsize: 
Len >Heisht: 
D x t D y : 

R >Theta: 

Pac: 

I a r r a y : 

Position: 

Error: 


in<s_ws (CharSi zeCode tO >0 >2 >Pac »I ar ray >Chars i ze »Er ro r) 5 {Set pen position} 
if ErrorOO then w ri te In ( 'Er ro r' >Er ro r :0 »' in "Glabel".')? 

Chars:=strlen(text)5 

Len:=CharsizetWidth!*(7*Chars+2*<Chars-1))/95 {lenSth minus inter-char Sap} 
Heisht:=CharsizeCHeiShth]*8/155 {heisht minus inter-line Sap} 

Dx:=Len*(-ord(HJustification)/2)5 
Dv:=HeiSht*(-o rd(MJustification)/25 5 

R:=s e irt(Dx*Dx+Dy*Dy) 5 { \ Conuert to polar coordinates so } 

Theta:=Atan(Dy>Dx)5 { / rotation is easy. } 

Theta:=Theta+CharTheta5 {add the LabeIDirection ansle} 

Dx:=R*cos(Theta) 5 { \ Conuert R and the new Theta bacK } 

Dy:=R*sin(Theta)5 { / to rectanSular coodinates. } 

inq.ws(CurrentPosition>0>0>2>Pac»Iarray^Position>Error)5 {Set pen position} 
if E r ro r = 0 then besin 

move ( Pos i t i on [)<]+Dx >Pos i t i on C Yl+Dy ) 5 {moue to the new startins point} 

Stext(text) 5 
end {Error=0?} 

else writeln('Error'>Error:0>' in "G1 abe1" ♦ ') i 

And here is a program using all the label-related algorithms mentioned above. 



i n t e S e r 5 
Cha rAt t rType ! 

real? {lensth and heisht of character strins} 

real 5 

real? {for rectanSular-to-polar conuersion} 

packed array C1..1] of char? { \ These are the } 

array C1..1] of inteSer! { \ sundry items } 

PositionTypei { /needed forthe } 

inteser! { / call to " in=i_ws"} 
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pro3rafxi JustPro3<outPut) ! 
import d 31_1ib > d 31 _ins 5 
const 

CrtAddr= 35 

C o n t r o1W o r d = 0 5 

type 


{ 3 e t 3raphics routines} 

{address of internal CRT} 
{device control; 0 for CRT} 


HJust ifyType = 
VJustifvType= 
An3Type= 

St r255 = 


(LefttHCenteredtRi3ht)5 {horizontal Justification} 
(Bottom ^.'Centered >Top) 5 {vertical Justification} 

(De3>RadfGrad)5 {used by procedure "LabelDirection"} 
st riri 3 C 2551 5 {for the procedure "Glabel"} 


v a r 

Erro rReturn: 
H J u s t: 

UJust: 


i n t e 3 e r 5 
HJustifyTypei 
yjustif yType j 
i ri t e 3 e r 5 
s t r255 5 
real 5 

HJustif’/Type 5 
y Just if’/Type ; 


I: 

St rn 3: 

CharWidth>CharHei3ht: 
HJustificat ion: 
yJustification: 


CharTheta: real 5 

$inc1ude 'DGLPRG:ConvVtoW'$ 


{variable for initialization outcome} 
{horizontal Justification variable} 
{vertical Justification variable} 

{for the strwrite statement} 

{labelled text holder} 

{ \ These are 31oba 1 variables } 

{ \ needed by the LabelJustify/ } 

{ / LabelDirection/CharSize } 

{/ series of procedures* } 

{needed by procedure "CharSize"} 


Procedures Frame, CharSize, LabelDi rection, LabelJustify, 
Atan, and Glabel go here. 


be sin {body of pro 3 ram "JustPro3"} 

3raphics_init5 {initialize the Sraphics system} 

display_init(CrtAddr>ControINord>ErrorReturn)j {which output device?} 


if ErrorReturn=0 then beSin 
set-aspect(511 t389 )5 
set_window(-1> 2 ♦ 5 > - 0.5 »2.5)5 
F rame 5 

Cha rSize(0.03 >0♦B) i 

LabeIDirection(0 >De3>5 

{===== Labels at the top ============= 

LabelJustify(HCentered> T o p)5 
for HJust:=Left to Risht do be3in 
St rn 3: ==' ' 5 

st rwrite (St m3 >1 >1 »HJust) 5 
m o v e ( o r d (H J u s t) »2.4) 5 
Glabel (St m3) i 
end? {for HJust} 

{===== Labels on the left ed3e ======= 

LabelJustify(Left»ycentered)? 
for yJust:=Top downto Bottom do beSin 
St rn 3: = '' 5 

s t r w r i t e (S t r n 3 > 1 1 1 »V J us t) 5 
move(-0♦9 »o rd(yjust))5 
G1abe1(Strn 3)5 
end? {for yJ us t} 


{output device initialization OK?} 

{use the whole screen} 

{scale the window for the data} 

{draw a frame around the screen} 
{width=3% screen width? asp. ratio=.B} 
{horizontal labels} 

=====================================} 

{label's reference point: top middle} 
{horizontal loop} 

{null the s t rin3 so nothin 3 leftover} 
{convert enumerated type to s t rin 3} 
{move to the appropriate place} 

{label the st rin3} 


{label's reference point: left middle} 
{vertical loop} 

{null the s t rin 3 so n o t hin 3 left over} 
{convert enumerated type to strin3} 
{move to the appropriate place} 

{label the s t rin 3 } 











2-22 Miscellaneous Graphics Concepts 


{===== Labels ("TEST") with different Justifications ======================> 

CharSize(0.06>0.6)5 {characters a bit bisfSer} 

for HJust:=Left to RiSht do besin {horizontal 1oop> 

for MJust:=Top downto Bottom do besin {vertical loop} 

Labe 1 Justify(HJust>0Just)5 {set label justification} 


move(ord(HJust)+0♦03>ord(VJust)+0♦03)5 { \ } 
1ine(ord(Hjust)-0*03>ord(VJust)-0*03)5 { \ Make the "x" at } 
move(ord(Hjust)-0*03>ord(VJust)+0.03)5 { / the appropriate } 
1ine(ord(HJust)+0.03>ord(VJust)-0♦03)5 { / place. } 


move(ord(HJust)>ord(0Just))5 {move to label's starting position} 

Glabel ( 'TEST') i {label the text} 

end? {for M j us t} 
end; {for H j u s t} 
end! {ErrorReturn=0?} 

Sraphics_term5 {terminate the Graphics package} 

end. {program "JustPro?"} 

The xs indicate where the pen was moved to before labelling the word “TEST”. What this 
diagram means is that, for example, if Label Justify (Left>Bottom) is in effect, and you move to 
4,5 to write a label, the lower left of that label would be at 4,5. This automatically compensates 
for the character size, label direction, and label length. It makes no difference whether there is 
an odd or even number of characters in the label. If Label Just if y (Center >Top) had been in 
effect, and you had moved to 4,5, the center of the top edge of the label would be at 4,5. You 
can readily see how useful this concept is in centering labels, both horizontally and vertically. 
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Monochromatic CRT Drawing Modes 

On a monochromatic CRT, there are three different drawing modes available 1 : 

• Drawing dominant lines. This is the most obvious drawing mode; pixels are turned on. It is 
the mode the graphics package is in by default. White lines are drawn on a dark back¬ 
ground, and dark lines are drawn on a white background. 

• Erasing lines. In this mode, pixels are turned off. If a line is erased on a background which 
is already dark, there is no effect. This is the method for making sure a line is gone after it 
may or may not have been drawn. 

• Complementing lines. When this type of line is drawn, pixels which are on are turned off, 
and pixels which are off are turned on. This is for drawing something which will be visible 
no matter what the background is; e.g., a graphics cursor. 

The drawing modes are selected by calling the OUTPUT_ESC procedure. This DGL procedure 
allows you to control device-dependencies of output devices. The operation selector which 
controls drawing modes is 1052. Following is an algorithm which takes care of all the necessary 
variables, declarations, and all-around “housekeeping” involved in selecting a drawing mode. 
This implementation of the algorithm assumes the existence of the following type declaration: 

Drawiri£fModeType= (Dominant (Erase»Com p 1 ement) 5 


Here is the section of code for selecting drawing modes on a monochromatic CRT: 


const 

SetDrawin3Mode= 
uar 

DrawMode: 

R a r r a y : 

Error: 


1052 5 

[ 1. . 1 ] of inte3e 
[1.♦1] of real? 


array 
array 
integer? 


{mnemonic better than masic number} 

{ \ This is all stuff that 
{ > is needed by the 

{ / "o ut p ut _ e s c" procedure. 


} 

} 

} 


case Mode of 
Erase: 
Dominant: 
Complement: 
end? {case} 


D rawMode[1]:=2 5 
D rawMode [1]:=0 5 


D rawMode C11:=3 5 


o ut p ut _e s c (Se tD r aw i n 3Mo d e > 1 >0 >D 
if ErrorOO then writelnf'Error 


{ \ 

{ \ Convert DrawintfMode enumerated 

{ > type into the appropriate 

{ / value for QUTPUT_ESC procedure. 

{ / 

rawModetRarray>Error)5 {set it} 

'»Error:0»' in procedure 11 D raw in sMode" ♦ ') 5 


} 

} 

} 

} 

} 


A characteristic of drawing with drawing mode Do mi nan t or drawing mode Erase is that if a 
line crosses a previously-drawn line, the intersection will be the same “color” as the lines 
themselves. When drawing with drawing mode Complement, and a line crosses a previously- 
drawn line, the intersection becomes the opposite state of the lines. In other words, the pixels 
being defined by the line being drawn are exclusively-ORed with the pixels already on the 
screen. For example, assume a black background (like right after calling CLEARJDISPLAY 2 ). 

1 There are actually four drawing modes that you can select; however, two of them, dominant and non-dominant, are identical on 
monochromatic displays. See the section called Writing Modes and Color in the Color Graphics chapter for a description of using non¬ 
dominant mode on color displays. 

2 There is a way to clear the screen to white, also. Set entry number 0 in the color table (use the SET_COLOR_TABLE procedure) to anything 
which has a luminosity greater than 0.5. 



2-24 Miscellaneous Graphics Concepts 


You invoke a drawing mode Comp 1 einent, then draw a pair of intersecting lines. When the first 
line is drawn, all pixels are off, so the line being drawn causes all pixels to be turned on along its 
length. However, when the second line is drawn, it will turn on pixels until it intersects the first 
line. At that point, the pixel is on, so it gets turned off After that, the rest of the pixels are off, so 
they are again turned on. 

This concept is illustrated by the program DrawMdPrg (found on file “DrawMdPrg” on the 
DGLPRG: or DOC: disc). The listing is given in the appendix so you can see how it works, but 
since it is a dynamic display, and constantly changing, it makes little sense to show a snapshot of 
it. The first statement of the main program (D rawMo de: = Do mi nant 5) defines the type of operation 
the program will exhibit. If DrawMode equals Complement, all lines will complement, because the 
two lines in the infinite loop (the while true loop) which select drawing modes only modify the 
drawing mode if it is Dominant or Erase. Otherwise, the drawing mode is not changed. When 
you wish to change the program to the drawing/erasing mode, change the first statement of 
the main program to say DrawMode: =Dominant 5. Then the two drawing-mode-selecting lines will 
select drawing modes Erase and Dominant, respectively. 

In complementing mode, a pixel is on only if it has been acted upon by an odd number of line 
segments. 


Faster Drawing Procedures 

In the previous section, CRT Drawing Modes, the routines INT_MOVE and INT_LINE were used 
for moving and drawing, rather than the MOVE and LINE procedures used previously. The reason 
for the existence of these routines is that they exhibit higher execution speed. This increase in speed 
is obtained because the procedures do integer arithmetic, which is much faster than real arithmetic. 
The only restriction on parameters is that they must be 16-bit signed integers; that is, a subrange of 
INTEGER whose range is - 32 768 through 32 767. There is a TYPE defined in the module 
DGi—TYPES called GSHORTINT which is this subrange of INTEGER. 

Depending on the application, they may be up to three times faster than their counterparts 
which deal with real numbers. However, the increase in speed will only take place if the 
following three conditions are met: 

• The display must be a raster device; 

• The window bounds must be within the range of - 32 768 through 32 767; and 

• The window must be less than 32 767 units wide and high. 

There are some more I NT- routines available also. They are identical to the same routines 
without the I NT_ at the beginning of their names except for the restriction mentioned above. 

MOVE INT_MOVE 

LINE INT_LINE 

POLYGON INT_POLYGON 

POLYGON_DEV_DEP -> INT_POLYGON_DD 
POLYLINE INT_POLYLINE 
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Selecting Line Styles 

When a graph is attempting to convey several different kinds of information, colors are often 
used: the red curve signifies one thing, the blue curve signifies another thing, etc. But when only 
one color is available, as on a monochromatic CRT, this method cannot be used. Something 
that can be used, however, is different line styles. Even on a monochrome CRT, it makes sense 
to say that the solid line signifies one thing, the dotted line signifies another thing, and the 
dashed line signifies still another. 

The DGL procedure SET_LINE_STYLE is used to select from the available line styles. The single 
argument is an integer whose value is 1 through the number of line styles supported on the device 
currently being used. If using an HP-GL plotter, look under the LT (Line Type) instruction to 
determine how many line styles are supported. 

The CRT supports eight line styles: 

n . 

O 

~p . 

6 - 


4 


2 - 

1- 

As you can see, line style 1 draws a solid line. Line styles 2 through 8 are patterned sequences 
of on and off. For all line styles, the computer remembers where in the pattern a line segment 
ended. Therefore, when you start drawing another line segment, the line pattern will continue 
from where it left off. If you want the pattern to start over, just re-execute the line style 
procedure. 
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Plotters also have different line styles to select from. For example, the following line styles are 
available on the HP 9872 and HP 7470 plotters. 

7 . 

6 - 

4 - 

3 - 

2 - 

1 - 

HP 9872 and 7470 Line Styles 

As another example, the HP 7580 and HP 7585 plotters have two different ways of plotting most of 
their line styles: continuous and vector-adjusted. Lines drawn with a continuous line style are drawn 
such that every line segment drawn continues the pattern from where the previous segment left off. 
If a line segment is short enough and the next section of the pattern is the space between marks, 
there may be nothing at all drawn for a particular line segment. Vector-adjusted lines are forced to 
have the middle of the main drawn section at each endpoint of the line segment. See the line 
segments below. 

13 ■ • 

12 - 

1 1 - 

10 - 

9- 

g _____ _ — ~ — VECTOR ADJUSTED 

G 
5 
4 
3 
2 
1 

CONTINUOUS 




HP 7580 and 7585 Line Styles 
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Isotropic Scaling 

It was mentioned in the last chapter that there were two different types of scaling: isotropic and 
anisotropic. Isotropic scaling means that one unit in the X direction is equal in length to one 
unit in the Y direction. Anisotropic means that one unit in the X direction does not necessarily 
equal one unit in the Y direction. 

We dealt with anisotropic scaling in the last chapter by calling the DGL procedure SET_ 
WINDOW. For the task we were working on at that time, anisotropic scaling was the best 
choice. However, when drawing a picture of an object, or drawing a map, it is desirable to 
have isotropic scaling, so the representation of the object is not distorted. 

There is a way to cause isotropic scaling to be invoked. First, comparisons of the aspect ratios of 
the viewport limits and the window limits must be made. Then some extra room is allowed in 
either the X direction or the Y direction (but not both). The amount of extra room is just the 
precise amount to cause the requested window to be isotropically scaled into the viewport. 

Following is the listing of an algorithm to set a window isotropically, 

const 

ViewportLimits= 4515 {mnemonic better than masic number} 

type 

LimitOrder= (Vxmin >Vxmax * V y m i n > My max) 5 
LimitType= array CLimitOrderl of real! 
var 

Pacs packed array Cl««l] of char! { \ ...sundry variables > 

Iarray: array [l..i] of inteSer? { \ needed by the "inq.ws" > 

Viewport: LimitTypei { /procedure* called to Set} 

Error: intesferi { / window limits. } 

WxranSe* W'/ranSe: real? {X/Y ranSe in window (world) coordinates} 

VxranSe* VyranSe: real? {X/Y ranSe in viewport (virtual) coordinates} 

Wratio* Vratio: real 5 {aspect ratios of window and viewport} 

W x m i d > Wymid: real! {X/Y midpoints of window} 

WVratio* MW ratio: real! {ratios of the ratios} 

Multiplier: real I {the amount to multiply the semiranSe by} 


inq_ws(UiewportLimits >0>0 >4 >Pac *Iarray»Viewport*Error)5 {Set viewport limits} 
if ErrorOG then 

writeIn('Error '>Error:0*' in procedure "Show".')! 

Wxranse;=Wxmax-Wxmin 5 {ranSe of X in desired window} 

Wy ran se:=Wymax-Wymin5 {ranSe of Yin desired window} 

Wratio:=WxranSe/WyranSe5 {aspect ratio of desired window} 

VxranSe:=ViewportEVxmax1-ViewportCVxmin]5 {ranSe of X in current viewport} 

Vy ran Se:=Viewpo rt CVymax]-ViewportCVymin]5 {ranSe of Y in current viewport} 

Vratio:=VxranSe/VyranSe5 {aspect ratio of viewport} 

if abs (Vrat io Xabs (Wratio ) then besin {need more room on top and bottom} 

Wymid:=Wymin+WyranSe*0.5 I {Y midpoint in desired window} 

WVratio: = abs(Wratio/Vratio) 5 {ratio of aspect ratios} 

Multi p 1ier:=WyranSe#0.5*WVratio ! {what the Y ranSe must be extended by} 

W’/min : =Wymi d-Mul t i pi i e r 5 {new minimum Y for window} 

Wymax:=Wymid+Multiplier5 {new maximum Y for window} 

end 
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else b e Sin 

Wxmi d : = Wxmin+Wx ran Se*0♦5 5 
V W ratio: = abs(Vratio/Wratio)5 
Multiplier: = Wx ran3e*0.5*VW rat io S 
Wxinin : = Wxmi d-Mu 11 i p 1 i e r i 
Wxmax:= Wxmid+Multiplier? 
end? {u r a tio < w r a t i o ? > 
set_window(Wxfrtiri > W x m a x » W y in in t W y max) 5 


{need more room on risht and left) 

{X midpoint in desired window> 

{ratio of aspect ratios! 

{what the X ranSe must be extended by} 
{n e w minimum X for win d o w> 

{n ew maximurn X for uind ow > 

{set window with twiddled parameters} 


Following are two example outputs from the program “IsoProg” (found on a file of the same 
name on the DGLPRG: or DOC: disc) which demonstrates the isotropic scaling routine. The 
user is asked to specify Xmin, Xmax, Ymin, and Ymax for the isotropic units. The specified 
area is mapped into the viewport area isotropically, adding extra space to either the X or Y 
direction, whichever is needed. There is a dotted-line frame around the screen limits, and the 
requested limits are shown in a solid-line grid. The space added is outside the solid-line grid. 
In both cases, the whole screen was used for the viewport. 


In the first example, the requested values were 0 to 6 in X, and 0 to 8 in Y. Since the aspect ratio 
of this window is less than the aspect ratio of the viewport, some extra room is needed in the X 
direction, as shown. 
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In the next example, the requested values were 0 to 7 in X, and 0 to 4 in Y. Since the aspect 
ratio of this window is greater than the aspect ratio of the viewport, some extra room is needed 
in the Y direction, as shown. 



The program that produced the two preceding outputs is listed in the appendix. 
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Axes and Grids 

For many data-display graphs, axes along the edges are sufficient to get the message across. 
But if your graph needs to be read with more precision than axes afford, you can use a grid. A 
grid is a logical extension to axes, with some differences. The differences are: 

• The major tick marks extend all the way across the clip limits, and 

• The minor tick marks intersect in small crosses over the entire surface of the soft clip limits. 

There is a program called “AxesGrid” on the DGLPRG: or DOC: disc which will help you 
understand how to write your own grid-drawing routine. It is similar to the axis procedures, 
except for the two differences noted above: the major ticks extend across the entire soft clip 
area (it calls CLIPDRAW), and the minor ticks for X and Y intersect in little crosses between 
the grid lines. 

The following program shows the differences between: 

• a pair of axes by themselves, 

• a sparse grid, 

• a dense grid, and 

• a sparse grid with two pair of axes. 



Note that some care must be taken to ensure that the minor tick marks in a grid are smaller than 
the distance between them. If they are not, the minor tick crosses drawn by the grid procedure 
would have overlapped. The end result would have been a grid with even the minor ticks 
extending all the way across the soft clip area. 
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As the lower left graph shows, there is a way to get the best of both worlds—accurate interpola¬ 
tion and lack of clutter. If you want to be able to estimate the data values very accurately from 
the finished plot, but also want to prevent the plot from appearing too “busy”, or cluttered, it 
can be done. The grid drawn has somewhat sparse major tick marks, but very many minor tick 
marks. The point of interest is that the minor tick length parameter is reduced to virtually zero. 
This causes the tick crosses (the little plus signs) to be reduced to mere dots. Using this strategy 
allows easy interpolation of data points (to the same accuracy as typically used in axes), but 
does not clutter the graph nearly as much as normal ticks would. In fact, had we used the 
previous minor tick length, the length of the lines making up the tick crosses would have been 
greater than the distance between the ticks. Thus, they would have merged together to make 
solid lines, extending all the way across the graph. This would greatly clutter the graph. 

Be aware when using this strategy of making huge numbers of degenerate tick crosses that the 
computer still thinks of them as crosses, which means that both the horizontal and vertical 
components must be drawn. This looks to you like drawing and then redrawing each dot. 
Therefore, when sending this type of grid to a hard-copy plotter, do not be averse to starting 
your plot, and then going on vacation. 

In the lower right quarter of the plot, there is another way to reach a compromise between ease 
of interpolation and lack of clutter. Axes are used on all four edges, and a sparse grid is drawn 
with major tick marks every second of the axes’ major tick marks. 

Note that two pairs of axes were drawn. The parameters are identical save for the position of the 
intersection. The first pair of axes intersect at the lower left corner of the soft clip area. The 
second pair of axes intersect at the upper right corner of the soft clip area. 

Also note that when a grid is drawn, the frame around the window can usually be removed 
(depending on the Major Tick Count); the lines around the soft clip limits were being drawn by 
grid procedure anyway. 

All of the above have advantages; there is no one approach which is always best. On many 
occasions, an application is defined such that there is no question as to which procedure to use. 
Other times, however, it is not such a cut-and-dried situation and you want to weigh the 
alternatives carefully before setting your program in concrete. To aid you in the decision, here 
are some pros and cons to the approaches above. 

Advantages to axes: 

• Axes execute much faster than grids. This is for two reasons. First, there is much less 
calculating the computer must do, and second (and more important), there is much less 
actual drawing of lines the computer must do. This becomes especially evident when 
sending a plot to a hard-copy plotting device where physical pen must be hauled around. 

• It does not clutter the plot as much. Reference points are available at the axes, but there is 
no question about where the data curve is. When using a grid, it is possible to lose the data 
curve among the reference lines if it is close to being horizontal or vertical. 
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Advantages to grids: 

• Interpolation and estimation are much more accurate due to the great number of reference 
ticks and lines; one need not estimate horizontal and vertical lines to refer back to the axis 
labels. 

• Usually there is no need to explicitly draw a frame around the grid area to completely 
enclose the soft clip limits, as is often desired, because the major tick marks from the GRID 
procedure would probably redraw the lines. Of course, this is dependent upon the Major 
Tick count. 


Logarithmic Plotting 

In many fields, there are ranges of valid values which are so large that not only is isotropic 
scaling out of the question, but any kind of linear scaling—even anisotropic—is virtually use¬ 
less. To successfully depict these kinds of data, one or both of the axes can be logarithmic 
scales; that is, the data points themselves are not plotted, but the logarithm of each data point is 
plotted. For example: 

• In seismology, earthquake intensity is measured in the logarithmic Richter scale. 

• In acoustics, both sound intensity (decibels) and frequency (octaves) are dealt with in 
logarithmic scales. 

• In astronomy, a Hertzsprung-Russell diagram graphs both the luminosities and surface 
temperatures of stars logarithmically. 

• Also in astronomy, black-body radiation curves are plotted logarithmically. 

For logarithmic plots, logarithms (from here on referred to as logs) to the base 10 are most often 
used 1 . 

Homemade Mathematical Functions 

To deal with logs, we need to write two mathematical routines which are not provided in the 
language. 

Taking a Number to a Power 

First, we need to be able to exponentiate—take an arbitrary number to an arbitrary power. We 
can use an identity function of logarithms to do this: 

x v = e y In (x) 

This is easily done since Pascal does have functions to return the log and antilog 2 in the 
Napierian 3 base e. The function to return the natural log is LN, and the function for returning the 
natural antilog— e to a power— is EXP. 


1 An exception to this is the frequency example in acoustics mentioned above, in which octaves deal with powers of two. 

2 The login 1000 = 3 because 10* = 1000. The antilogy 3 = 1000 because 10 3 = 1000. 

3 The Napierian base e is the base of natural logarithms. Its value is 1/0! + 1/1! 4-1/2! + 1/3! + 1/4!... and equals approximately 2.718 281 828. 
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The Logarithm to Any Base 

The next function is slightly more complex. We needed a function to calculate the common 
logarithm (log to the base 10). We used another identity function of logarithms which allows 
one to calculate the log of any positive number to any positive base not equal to 1—even 
fractional ones. We used a special case of this to calculate the common logarithm, or log to the 
base 10: 

y = /n(x)//n(b) 

Since this allows us to calculate the log of any (positive) number to any (positive) base not equal 
to 1, we will define the base to be 10. Now we can deal with common logarithms. 

Back to Logarithmic Axes... 

When you are doing logarithmic axes using logs to the base 10, you need to specify the minimum 
and maximum in decades. For example, say you want to make logarithmic axes from 0.01 to 1000. 
This is 10~ 2 to 10 3 , therefore, the will be five decades represented. To draw a logarithmic X axis: 

for Decade:=-2 to 3 do b e S i n 
if Decade<3 then UnitMax:=9 
else UnitMax:=15 

for Units: = 1 to UnitMax do be sin 
X:=Decade+LoSiO(Units)! 
in o u e (X jYftiin ) 5 
draw(X > Yin ax)5 
end 5 {for Units} 
end! {for Decade} 

The statement starting “if Decade<3” is there because we want the units to go from 1 to 9 1 for 
every decade except the last one, for which we only want the integral power of ten. 


1 Each decade goes from 1 to 9, not from 1 to 10, because 10 will be covered by the first iteration on the next decade. 
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Following is a short program (found on file “LogPlot” on the DGLPRG: or DOC: disc) which 
draws logarithmic grid, and plots a curve on it. A logarithmic grid is merely a logarithmic axis 
with long tick marks. 



program LosfPlotC key board* o u t p u t)5 

import d * 1_ 1 i b 5 

const 

Xmin = -4 5 

Xmax = 25 

Ymin = 05 

Ymax = 3 5 

C r t = 3 ! 


C o n t r o 1 = 0 5 

type 

RDataType= array Cl..15] of real! 
const 


{ \ > 

{ \ Decade minima > 

< / and maxima. > 

{ / } 


{device address of Graphics raster) 
{device control word; ignored for CRT) 


Xva 1 ites = RDataTypeCO♦ 0003 > 0.0003 * 0.004* 0.008* 0.01* 0.07* 0.22* 0.5* 

1.2* 2.G * 8.3 * 18.6 * 34 » 58 * 37]5 

Yva 1ues = RDataTypeC1.1» 4.5* 13.38 * 45.3* 80.33* 130.7* 348* 830.4* 

833* 333* 303* 841* 720* 505* 330]5 


va r 

Error: 

Decade: 

Units * Uppe rLimit: 
X* Y: 

I: 


integer 5 
integer? 
i n t e 4 e r 5 
real* 
integer* 


{di spI ay_ini t return variable* 0 = oK) 
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$pa se$ {a#*#************************#*******************##*#***##**#********} 


function LoSlO(X: real): real? 

{ ........ } 

{ This function returns the logarithm to the base ten of a number. > 

{------- } 

const 

LoS_10= 2.30258509299 5 •£ 1 o sf to the base e of 10> 

be Sin {function "LoSlO"} 

Lo S10: = 1 n (X) /Lo S_ 10 ? 


end! {function "LoSlG"} 

$paSe$ {*****************************-x-**************************************> 
be Sin {body of pros ram "LosPlot"} 

Sraphics_init5 {initialize the Sraphics system} 

display_init(Crt .Control .Error)5 
if Er ro r = 0 then beSin 
set_aspect(511>389)5 
set_window(Xmin >Xmax .Ymin .Yrnax)5 

{===== Draw and label losarithmic X-axis srid =============================} 

for Decade:=Xmin to Xmax do beSin {one decade equals one mantissa cycle} 
if Decade = Xmax then UpperLimit: = 1 
else UpperLimit:=95 

for Units:=l to UpperLimit do beSin {do 2-9 if not last cycle} 

X:=Decade+LoSlO(Units)5 
move(X .Ymin)5 
1ine(X .Yrnax)5 
end! {for units} 
end! {for decade} 

{===== Draw and label losarithmic Y-axis Srid =============================} 

for Decade:=Ymin to Yrnax do beSin {one decade equals one mantissa cycle} 
if Decade=Ymax then UpperLimit:=1 
else UpperLimit:=95 

for Units:=l to UpperLimit do beSin {do 2-9 if not last cycle} 

Y: =Decade+Lo S10(Units) 5 
moue(Xmin >Y)5 
1ine(Xmax >Y) 5 
end. {for units} 
end? {for decade} 

{===== Draw the losarithmic data curve ====================================} 

for I:=1 to 15 do beSin 

if 1 = 1 then moue(Los10(XUalues[I]) >LoS10(Yvalues[I]) ) 
else 1ine(LoslO(XUalues[I]) >LoS10(Yualues[ I ])) ! 
end! {for i} 

end? {Error=0?} {end of conditional code} 

s raphics_te rm 5 {terminate sraphics library} 

end. {proSram "LosPlot"} 
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Storing and Retrieving Images 

If a picture on the screen takes a long time to draw, or the image is used often, it may be 
advisable to store the image itself — not the commands used to draw the image — in memory 
or on a file. 


Note 

Because the location of the various Series 300 frame buffers may vary, 
storing and retrieving images on these models is somewhat more complex 
and exceeds the scope of this manual. Therefore, application of the 
GSTORE procedure to these is not discussed here. 


Image transfer from the graphics memory to a user array can be done by overlaying an array 
directly on top of the graphics memory, i.e., forcing the starting address of a user array to be 
the same as the starting address of the graphics memory. The user array is also the same size 
as the graphics memory. First, you must have an INTEGER array (32-bit integers) of sufficient 
size to hold all the data in the graphics raster. This amounts to an array size of 7500 1 on the 
Models 216, 220, and 226; 6240 on the Models 217 and 236. This array holds the picture 
itself, and it doesn’t care how the information got to the screen, or in what order the different 
parts of the picture were produced. 

In the program called “GstorProg” (located on the DGLPRG: or DOC: disc), an image is drawn 
with normal plotting commands, and then, after the fact, the image is read from the graphics 
area in memory, and placed into the user array, using the procedure GSTORE. After the array 
is filled by the GSTORE procedure, a curve is plotted on top of the image already there. Then, 
turning the knob changes the value of a parameter, and a different curve results. But we do 
not have to replot the grid, axes, and labels. We merely need to copy the data containing the 
image (which has everything but the curve and the current parameter value) back into graphics 
memory by calling the inverse procedure, GLOAD. This allows the curve to be changed almost 
in real time. Note that only the size of the data array must be decreased if this is to work on 
a Model 216, 220 or 226. If this is to work on other computers, both the array size must be 
increased (because of the increased array size) and it must be accessed dynamically — the NEW 
statement and pointers. 

Note that the $SYSPROG ON$ compiler directive must be in the program. The reason for 
this is that we are using the compiler’s ability to force an array to be in a particular area in 
memory. We declare an integer array whose location in memory is exactly that of the graphics 
raster memory. Thus, when we deal with the array, we are dealing with the graphics memory, 
which has the current image in it. 


1 The reason the lower-resolution displays require more memory for image storage than the higher-resolution displays is that the 
Models 216, 220, and 226 use only the odd bytes of the words. Thus, only the least significant eight bits of each sixteen-bit word 
are used; the most significant eight bits are zeroes. 
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To write a program such as this, which stores a graphical image and reloads it, there are several 
housekeeping things which must be done. First, you must know where in the physical memory 
of the machine the graphics memory resides: 

The Graphics Memory Address and the Graphics Memory Size in your machine is dependent 
on the model. Find them in the following table. 


Model 

Address 

Size 

216/220/226 

$530000 

7500 

217/236 

$530000 

6240 


The addresses are expressed in hexadecimal and the sizes are expressed in 32-bit integers. 

After locating the address and size of the graphics memory, two constants must be defined. 
The address: 

c o n s t 

G R a s 1 0 r fl d d r = h 0 x k ' 5 3 u U U U ■ ) \ 

Then, how large the graphics memory is (the size of the graphics raster is expressed in 32-bit 
words): 

C 0 n S t 

u Raster5ize= 6 ki! 4 y \ 

Now, we must declare a type of which the variable being overlaid on the graphics memory will 
be: 

type 

GRas t er Type= array C1..GRasterGize1 of in1 090 ri 

Next, overlay a variable directly on top of the graphics memory. The constant in the brackets 
immediately after the variable name forces the address of that variable to the specified location 
in memory. This can only be done if the $SYSPROG ON$ compiler directive has been 
encountered. 

var 

GR a s 1 0 r[GRasterfiddr3i GR a s t © r T y p 0 j 

And finally, the user’s variable into which the graphics memory will be placed. Although it is 
of the same type as the variable GRast©r above, we will let the machine figure out where to 
put it: 

Scr 00 n \ uRast©rTyp ©\ 
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After all these declaration have been set up, it is a trivial matter to store the graphics image into 
the user array: 

Gstore(Screen)i 

Loading a screen image is just as trivial: 

G1oad(Screen ) 5 

Again, this program is on file “GstorProg” on the DGLPRG: or DOC: disc, and a listing of the 
program is in the appendix. It stores and reloads the graphics image to and from a user array. 
Of course, it also defines the necessary support constants, types, and variables for the GLOAD 
and GSTORE routines. It draws a blackbody radiation curve for the current temperature. 

Note that this program puts into use many of the concepts previously discussed in this chapter: 

• Conversion from virtual coordinates to world coordinates; 

• Specifying character size with a size in virtual coordinates and an aspect ratio, angular 
specification of label direction, and label justification; 

• Turning the alpha raster off (nonbit-mapped displays) 

• Logarithmic axes and grid; 

• Image storage and retrieval. 



The first time the curve is displayed, it will look like the preceding display. Every time you hit a digit 
key, a new curve will be drawn, based on the current value of Temperature. 
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Data-Driven Plotting 

Many Lines in One Step 

In the cases where the data to be plotted is in arrays, it can plotted in one statement by using the 
POLYLINE procedure. The X data must be in one array, and the Y data in another array. Both 
arrays must be one-dimensional arrays of reals. Below is a program showing how to plot an X 
data array versus a Y data array. 



pro3ram PLinePro3(output) 5 
import d31_1ib > d 31_ i n p 5 
const 

CrtAddr= 35 

C o n t r o1W o r d = 0 5 

type 

RDataType= array 10 * * 103 of real? 

const 

Xvalues= RDataTypeCO >1>2 *3>4 >5 »G>7 >B >3 #1035 

Yvalues* RDataTypeCO #2»1 #4»3#3#1 >5 >3 >4 >6] 5 

Mar 

Er rorRetu rn: inte3e r 5 

X » Y: RDataType 5 

$pa3e$ {********************«-***********************************************> 
be3in {pro3ram "PLinePro3"} 

3raphics_init5 

di spI ay_init(C rtAddr >Cont roIWo rd >E rro rRetu rn)5 
if Er ro rReturn = 0 then be 3in 
set-aspect(511 »389) 5 
set.window(0 »10 #0 #10) 5 

move (0 #0) 5 1 ine (0 # 10) ? 1 ine (10 # 10) i 1 ine (10 #0) 5 1 ir.e (0 »0) 5 

X:=Xualues5 Y:=Yualues5 
p o 1 y1in e(11»X »Y)5 
end! {ErrorReturn=0?> 

3raphics_te rm 5 

end, {pro3ram "PLinePro3"> 
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Note that the X data need not be steadily increasing values so as to make a broken-line chart 
like above. It could just as easily be used for drawing pictures of objects where both X and Y 
vary in an unpredictable way. However, if both X and Y are going to change, you’ll probably 
want to be able to control the pen status—you’ll want to lift the pen and drop the pen at will. 

Drawing Multi-Line Objects 

Often, when plotting data points, they do not form a continuous line like the broken-line charts 
we’ve seen before. One must have the ability to control the pen’s status (up or down), to allow 
drawing of several different, disconnected parts of an image in one step. For this need, there is a 
DGL procedure called POLYGON. The fourth parameter in the POLYGON procedure is the 
operation selector, and its function is to tell the computer to draw or not draw a particular line. It 
also specifies where individual polygons start. 

When plotting an entire array with the polygon statement, the fourth parameter is defined in the 
following manner. It must be of type INTEGER. The resultant action for the various operation 
selectors are: 


Polygon Operation Selectors 


Operation 

Resultant Action 

Selector 


0 

Do not draw the edge extending from the last ver¬ 
tex to this one. 

1 

Draw the edge extending from the last vertex to 
this vertex. 

2 

This vertex is the first vertex of a member polygon. 

Note 


Although the POLYGON procedure heading declares the incoming 
arrays to be of type GREAL_LIST or GSHORTINT_LIST, you cannot 
declare your own variables this way. Declare your variables as your own 
data type: arrays of the appropriate size of reals and short integers 
(16-bit integers; i.e., -32768*.32767). If you import the module 
DGL-TYPES, you can use the type GSHORTINT. 


Following is a program (file “PolyProg” on DGLPRG: or DOC: disc) which uses the POLYGON 
procedure. It draws a LEM (Lunar Excursion Module). The first parameter specifies how many 
points there are in the arrays. There are three arrays used: two one-column REAL arrays for 
the X and Y data, and a one-column INTEGER array containing opcodes. 
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pro draw Po 1 yP ro d( output) i 
impo rt 

ddl_lib ,ddl_types»ddl_poly,ddl-ins ? 
const 


MaxPoints= 

27 

Crt = 

35 

C o n t r o 1 = 

0; 

pe 



{prodraw name same as file name) 

{access the necessary procedures} 

{number of points in arrays} 

{device address of draphics raster} 
{device control word! idnored for CRT} 


Reals= 

array C1..MaxPointsl of real! {to contain X 

and Y values} 

Wo rd = 

-327G8»»327G7i 

{ 1S-bit word} 


Inteders= 

array Cl,.Maxpointsl of Word? {to contain 

op. selecto rs} 

const 

X v a 1 u e s = 

Reals C 1.5, 2.5, 

2.5, 1.5,-1.5,-2,5,-2,5,-1.5, 

{Octadon} 


-2.5, 2.5, 

2,5,-2,5,-2,5, 

{Box} 


-2.5,-4.5 ,- 

2,5,-5.0,-4.0, 

{Left led} 


2.5, 4.5, 

2.5, 5.0, 4.0, 

{Ridht led} 


- 0.5 , -1,0 , 

1.0, 0,53; 

{Nozzle} 

Y v a 1 u e s = 

R e a 1s C 1.0, 2.0, 

3.0, 4.0, 4.0, 3.0, 2.0, 1.0, 

{Octadon} 


1.0, 1.0,- 

2.0,-2.0, 1.0, 

{Box} 


- 2 ♦ 0 , - 4.0 , 

0,0 ,-4.0 ,-4.0 , 

{Left led} 


-2.0 ,-4.0 , 

0,0 ,-4.0 ,-4.0 , 

{Ridht led} 


-2,0 ,-3.0 »- 

3,0 ,-2.03 5 

{Nozzle} 

QpCodes= 

IntedersC2,l ,1 ,1 

1 ,1 ,1 ,1 , 

{Octadon} 


2,1,1 ,1 

1 , 

{Box} 


2,1 ,1 ,2, 

1 , 

{Ridht led} 


2,1 ,1 ,2, 

1 , 

{Left led} 


2,1 ,1,1] 

5 

{Nozzle} 

va r 

Error: 

i n t e d e r 5 

{display.init return variable? 0 = ok} 

I: 

i n t e d e r 5 

{loop control variable} 

LemX, LemY: 

Reals? 

{so we can pass it to 

"po 1y don" } 

OpSe1ecto rs : 

Intede rs ? 

{ditto} 


Points: 

integer? 

{ditto} 
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$pa3e$ 
b e 3 i n 
LemX:= 
LemY:= 
OpSe1e 
Points 
3 raph i 
di spI a 
if Err 
set_ 
set- 
po 1 v 
e n d 5 
3 raphi 
end. 


-C*************************4(-******»***********************************> 

{body of pro3raw "PolyPro3"> 

{ \ Put into variable array so > 

{ > it can be passed by ) 

{ / reference into the DGL proc.) 

{put constant into an array variable} 
{initialize 3raphics library) 
{initialize CRT) 

{if no error occurred...} 

{use the whole screen) 

{invoke isotropic units) 

{draw the lines) 


Xvalues 5 
Y v a 1 u e s 5 
ctors:=OpCodes5 
: = M a x P o i n t s 5 
cs_init 5 

y_init(Crt*Control»E r r o r)5 

o r = 0 then b e 3 i n 

aspect(511»389)i 

w i n d o w ( -13 * 13 »-10 > 10) i 

3on ( Po i n t s >Le wX >Le wY *0 pS e 1 e c t o r s ) 5 


{Er ro r='0?) 
cs_te rw 5 

{pro3raw "Pol'/Pro3") 


{end of conditional code) 
{terminate 3raphics library) 
{end of pro3raw) 


What’s in a Polygon? 

That’s a good question, and brings up the crucial difference between POLYGON and 
POLYGON_DEV_DEP (as well as the INT versions of the same). The key to understanding the 
two classes of polygon is the concept of device independence. Polygons generated by proce¬ 
dures that lack the DEV_DEP (or DD) suffix are device independent, and will always be filled, 
with as close to the fill specified by the polygon table (lines or crosshatched lines at some 
specified density) as the device they are being drawn on is capable of producing. Thus the lines 
used for a fill on a CRT may have visible jaggies, and the lines used on a 7580 plotter will not, 
but both of them will produce polygons filled with lines. 


So what happens with POLYGON_DEV_DEP? The “DEV_DEP” calls specify a device depen¬ 
dent polygon. The fastest, most appropriate fill possible on the device is used to fill a polygon. 
On the CRT, this is a dithered area fill (dithering is discussed in detail in the “Color” chapter). 
On the plotter, the edge is drawn with the current line color attribute if edge is specifed in the 
operation selector array and enabled in the polygon table. If the polygon edge attribute is false 
and the operation selector edge attribute is true, the polygon edge is drawn with the current 
polygon interior color attribute and polygon linestyle. It is worth noting that in this case, if the 
current polygon interior color attribute is set to 0 (the background in the color table), the 
polygon will not be visible. 

When to Use Which Polygon? 

Why are there two polygon fills? The two polygon calls address different valuable characteristics 
of the system. The POLYGON call tries to give a consistent representation, regardless of what 
display device is being used. The POLYGON_DEV_DEP calls are faster. You give up consisten¬ 
cy by using the device dependent calls, as well as control of drawing mode (all device depen¬ 
dent polygons are drawn in the dominant writing mode). The choice is yours; if you want speed 
or control of drawing mode, use the device dependent calls—if you want consistant presenta¬ 
tion of the image and/or control of the drawing mode, use the device independent call. 
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Polygon Filling 

When drawing a polygon, whether it is filled or not is an attribute of the polygon. The filling 
attribute itself has other attributes; namely, method (dithered/hatched), density (0-100%), and, 
if hatched, hatching direction ( -90°-90°) and perpendiculars (true/false). 

Polygons can be filled two different ways. Filling allows you to shade the polygons to various 
shades of gray. 

The first method of filling is to draw lines across the polygons; crosshatching. This is selected 
with the SET_PGN_STYLE procedure. Various densities of shading can be achieved through 
crosshatching, depending on both of the following: 

• The amount of space between the crosshatching lines; 
and 

• Whether or not there are perpendiculars. 

The other method of shading on a monochromatic CRT is called dithering. Dithering is a more 
accurate way to get shades of gray on a black-and-white CRT whose electron gun is either fully 
on or completely off. Dithering is accomplished through selecting small groups of pixels 1 , a 
four-by-four square of them on the Series 200/300 computers. Various pixels in the dithering 
box are turned on and off to arrive at an “average” shade of gray. There are only seventeen 
possible shades because out of sixteen pixels (the 4 x4 box); you can have none of them on, 
one of them on, two of them on, and so forth, up to all sixteen of them on. And it makes no 
difference which pixels are on; the pattern for each level is chosen to minimize the striped or 
polka-dotted pattern inherent to a dithered image. 

Crosshatching is accomplished by drawing many lines, and lines are drawn taking into account 
the current drawing mode (dominant, erase, or complement). One reason that this is important 
is that you can draw a complementing cursor with a call to the POLYGON procedure. Dithering 
does not deal with lines, therefore, the current drawing mode is ignored when doing a dithered 
fill. 


Note 

Polygons to be filled which extended over the edge of the plotting 
surface are completely filled-including all the area off the plotting 
surface. If a great deal of the polygon is invisible, then, it may appear 
that the machine is hung 2 , but in reality, it is merely doing a lot of 
calculations which do not affect the visible image at all. 


1 The word “pixel” is a blend of the two words “picture element,” and it is the smallest addressable point on a plotting surface. A Model 236 
computer has 512 x 390-pixel resolution; thus there can be no more than 512 dots drawn on any row of the CRT, or 390 dots drawn in any 
column. 

2 “Hung,” in this context, is short for “hung up.” It is a computerese term which means that the machine has entered a state, usually 
unanticipated, in which the machine becomes unresponsive, and drastic measures are often required to correct it. 
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Here is another program which draws the LEM, and fills the polygons in two different ways. On 
the left, it is filled by crosshatching; on the right, it is filled by dithering. 



p r oS r aw FillProS(outPut)! 
import 

dSl_lib»dsl_types»dSl_Poly,dSl_inq 

const 

MaxPoints= 275 

C rt = 3 5 

C o n t r o1= 0 5 

type 

Reals 3 array El..MaxPoints3 

Wo rd = -327G8♦.327G7 5 

InteSers 3 array Cl,.Maxpoints] 

const 

Xualues= Reals[ 1.5# 2.5# 2,5 

-2.5, 2*5# 2,5 
-2,5 *-4,5 ,-2,5 
2»5 > 4,5, 2,5 
-0.5,-1.0, 1,0 
Y va 1u e s= Reals! 1,0, 2.0, 3,0 

1.0, 1,0 , - 2,0 

- 2,0 , - 4,0 , 0,0 
-2,0,-4,0, 0,0 

- 2,0 , - 3.0 , - 3,0 


{prosram name same as file name) 

5 {access the necessary procedures} 

{number of points in arrays} 

{device address of Graphics raster} 
{device control word? ignored for CRT} 

of real! {to contain X and Y values} 

{ 16 - b i t word} 

of Word? {to contain op, selectors} 

, 1,5,-1,5,-2,5,-2.5,-1,5, {Oct aSon} 
,-2.5,-2,5, {Box} 

, -5.0 , -4,0 , {Lefties} 

, 5,0 , 4.0 , { R i S h t 1 e S } 

, 0,5]5 {Nozzle} 

, 4.0, 4,0, 3.0, 2.0, 1.0, {Oct a Son} 

, - 2,0, 1,0, {Box} 

,-4,0,-4,0, {Left 1 e s > 

,-4,0>-4.0, {RiSht leS} 

,-2.0]5 {Nozzle} 


OpCodes= 

I n t e S e r s C 2 

,i 

,i 

,i, 

1 ,1 ,1 ,1 


? 

,i 

,i 

,i, 

1 , 


9 

,i 

,i 

, 2 , 

1 , 


9 

,i 

,i 

,2 , 

1 , 


9 

,i 

,i 

, 1 ] 

5 


{OctaSon} 

{Box} 

{RiSht 1e S} 
{Left leS} 
{Nozzle} 


var 

Error: 

I: 

LemX , LemY: 
OpSelectors: 
Points: 


i n t e S e r 5 
i n t e s e r 5 
Reals5 
InteSers! 
i n t e S e r 5 


{ di spI ay_init return variable! 0 = oK} 
{loop control variable} 

{so we can pass it to "polySon"} 
{ditto} 

{ditto} 
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$Pa3e$ {****#*******#**###****#***#*********#**#*****##**####***#**##*******} 


b e sf i n 

LemX:= Xm a 1ues 5 
LeuiY: =Yualues \ 

OpSelectors:=OpCodes5 

Points:=MaxPoints5 

3raphics_init! 

d i s p 1 a y _ i n i t (C r t > C o n t r o 1 > E r r o r) I 
if Er ro r = 0 then be3iri 
set.aspect(511 *389) ! 
s e t _wind o w(- 7.5 >18.5 >-10 * 10) I 
set_P3n_style(14)5 
po 1 v Son ( Po irits >LemX >LemY >0pSe 1 ecto 
s e t_wind o w(-18.5 >7 >-10 > 10) 5 
set_p3n_table(14>0.51>0*1) 5 
set_colo r_table(1»0*125 *0.125 *0. 
set_p3n_co1o r(1)* 
p o 1 y 3 o n _ d e v _ d e p ( P o i n t s * L e m X > L e m Y 
end 5 {Error = 0?> 

3 raphics_te rm5 

end. {pro 3 rant "FillPro3"> 


{body of pro3raw FillPro3 > 

{ \ Put into variable array so > 

{ > it can be passed by > 

{ / reference into the DGL proc.} 
{put constant into an array variable} 
{initialize 3raphics library) 
{initialize CRT) 

{if no error occurred...) 

{use the whole screen) 

{invoke isotropic units) 

{crosshatched fill) 

5 {draw the lines) 

{invoke isotropic units) 

{set the "do a fill" f 1 a3) 

{specify 12.5% 3ray scale) 

{use specified "color") 

OpSelectors)! {draw the lines) 

{end of conditional code) 

{terminate Sraphics library) 

{end of pro3ram) 
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Shading Graphs 

Two previously-mentioned concepts can be combined to make broken-line charts which are 
filled. That is, you can consider the curve on the graph as edges of a polygon (along with the 
lower corners of the viewport), and fill the area with shading. Below is a short program which 
demonstrates the combined concepts. The program is found on file “FillGraph” on the 
DGLPRG: or DOC: disc. 



pros 
iinpo 
cons 
Cr 
Co 
type 
RD 
WD 
cons 
X u 
Yu 
Op 


ran) Fi 11G raph ( out put) 5 

r t d 31 _ 1 i b > d 31 _ t y p e s > d 31 _ p o 1 y 5 

t 


t A d d r = 
n t r o 1W o r d = 

ataType= 
ataType= 
t 

alues= 
a 1 u e s = 

e rationSe1ecto rs = 


35 
0 5 


array CO*♦123 of real! 

array C0* * 123 of -327B8..3Z7G7! 

R D a t a T y p e [ U > 1 >2 >3 >4 >5 > G >7 >8 > 3 »10 >10 > 0 ] ! 
RDataType[2>4>3>G>5>5>3>7>5>G>8>0>0]> 
WDataTypeEZ >1>1 >1>1>1>1>1 >1>1>1>1>1]5 


uar 

Erro rReturn: 
Xt Y: 

OpSels 


i n t e 3 e r 5 
RDataT'/pe ! 
WDataType 5 
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$pa$e$ {#####**#*#*#***#*****#*****#*********##***#*##***##****##*#******#**} 
be $ in {program "FillGraph 11 > 

3raphics_init5 

display_init(CrtAddr»ControlWord>Er ro rRetu rn)! 
if ErrorReturn = 0 then be din 
set-aspect(511>383) ! 
s e t_win d ow(0 >10>0 >10)5 

m o v e (0 > 0) 5 1 i n e (0 > 10) 5 1 i n e (10 > 10) 5 1 i n e (10 > 0) 5 1 i n e (0 > 0) 5 

X:=X values! Y:=Yvalues 5 0pSel:=0perationSelectors! 

set.pdn -tabled >0.333 >17.34 >1) 5 
set_pdn_sty 1 e (1)5 
po1y don(13 >X>Y >0pSel) ! 
end! {ErrorReturn=0?> 
d raph i cs_te rm 5 

end. {prodram "FillGraph") 

Note that the two lower comers of the graph must be included in the definition of the polygon. 
The shading is done with hatching lines, and the angle of those lines is deliberately a strange 
angle to point out that you are not restricted to multiples of 45° for the hatching lines. If the plot 
is to come out on a CRT, dithering may be used instead. 

If the shading is going to be done with hatching lines, you may want to perform a linear 
regression on the data points. Then, you can indicate the overall trend of the data by defining 
the slope of the hatching lines to be the angle determined by the linear regression. 

Highlighting Data Curves 

You can note the location of the starting points of line segments by using the MARKER 
procedure. When the procedure is called, it outputs a marker of whatever type you selected. 
The valid values and what types of markers they output are listed below: 


Marker 

Number 

Resulting 

Shape 

Marker 

Number 

Resulting 

Shape 

<1 

• 

10 

0 

1 

• 

11 

1 

2 

+ 

12 

2 

3 

* 

13 

3 

4 

0 

14 

4 

5 

X 

15 

5 

6 

A 

16 

6 

7 

□ 

17 

7 

8 

0 

18 

8 

9 

m 

19 

9 


Marker numbers greater than 20 are device dependent. If the specified marker is larger than the 
number of marker the device supports, a dot (marker selector 1) will be used. 
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Below is a program and its output which shows how to use the MARKER procedure. The 
program can be found on the file “MarkrProg” on the DGLPRG: or DOC: disc. 



p ro s ram MarKrProS(outPut)5 
import d S1 _ 1 i b > d s 1 _ i ri q I 
const 

CrtAddr= 3! 

ControlWord= 05 


array 

array 


[ 0 *«41 i 
[0..103 


f integer! 
of integer? 


type 

MarKe rNuiriType 
DataType = 
const 

MarKe rNumbe r = 

Data = 
uar 

E rro rReturn: 

I > J: 

$pase$ 
b e S i n 
Sraphics.init! 

di spI ay_init(C rtAdd r >Cont ro1 Wo rd>E r ro rRetu rn )5 
if ErrorReturn = 0 then be sin 
set-aspect(511>389)5 
set_wiridow(0 >10 >0 >10) 5 


MarKerNumTypeE2>5 >G >8 >13] 5 
DataTypeCO >2 >1 >4 >3 >3 >1 >5 >3»4>6]» 

i n t e S e r 5 
integer* 

{****##*****##*#***#*###**#*******#*###*#****#**#*#######**##***#*#*#} 

{prosram "MarKrPros"} 


m o v e (0 > 0) 5 1 i n e (0 > 10) 5 1 i n e (10 > 10) 5 1 i n e (10 > 0) 5 1 i n e (0 > 0) i 
for I:= 0 to 4 do beSin 
for J:= 0 to 10 do beSin 

if J< .> u then m a r K e r (M a r K e r N u m b e r CI ]) ! 
if J = 0 then moue(J >DataCJ] +1) 
else line(J>DataCJ]+I)5 
end! { f o r j > 
end! {for i> 
end! {E r ro rRetu rn = 0?> 

S raphics_t e rm ! 


e n d. 


{proSram "MarKrProS"> 
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External Graphics Displays 
and Plotters 


Chapter 

"~ 3 ~ 


In this chapter, we will be discussing the selection of external plotting devices. The 
DISPLAY_INIT procedure will be more thoroughly covered, in addition to dumping graphics 
images from a CRT to a printer. External CRTs (cathode-ray tubes), which may be connected to 
your computer through a 98627A interface card, and plotters, which may be connected through 
the built-in HP-IB (Hewlett-Packard Interface Bus) port in the back of your computer, will also be 
discussed. 


Selecting a Plotter 

In the previous two chapters, the program listings contained a line which said: 
di spI av_init(CrtAdd r >Cont ro1 Word >Er ro rReturn)5 

Because the value contained in the variable CrtAddr was 3-specifying the current console- the 
computer activated the internal CRT graphics raster as the plotting device, and all subsequent 
graphics output was directed to this display. If you want a plotter to be the output device, only the 
value of the variable CrtAddr need be changed. (You may also want to change the name of the 
variable. It is somewhat misleading to have the address of a plotter in variable named CrtAddr.) If 
your plotter is at HP-IB interface select code 7 and address 5 (the factory settings), the modification 
would be: 

C rtAdd r:=7055 
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Dumping Raster Images 

In addition to generating a hard-copy plot with a plotter, as described above, you can dump a 
CRT’s raster image to a printer. This method is called a graphics dump or screen dump. It is 
accomplished by copying data from the frame buffer to a printer to be printed dot for dot. 

First the image must be drawn on a CRT. The internal CRT, a color monitor connected by 
an HP 98627A interface card, or an HP 98700A may be used. Since this technique dumps 
a rastor-type image, it prints only dots. Thus it cannot draw a line, per se, but only the 
approximation of a line from the screen, made up of dots. The dump device “takes a snapshot” 
of the graphics screen at some point in time, and doesn’t care how the dots came to be turned on 
or off. Thus, filled areas can be dumped to the printer; indeed, most CRT graphics capabilities 
(except color) are available. 

If your printer is an HP 9876, HP 2631G, HP 2671G, HP 2673A or any other printer which 
conforms to the HP Raster Interface Standard, dumping a graphics image is achieved with the 
OUTPUT_ESC procedure. If your active graphics display device (set with the DISPLAY-INIT 
procedure call) is monochromatic, a call to OUTPUT_ESC with operation selector 52 will dump the 
display if: 

• The active graphics display is the console (where alpha is displayed), or 

• The active graphics display is bit-mapped (i.e., is a bit-map display or a display connected 
via the HP 98627A RGB interface). 

If you have a color device, all planes in the frame buffer are logically ORed. If you want more 
control over the output of a color image, an operation selector of 1053 will allow you to select 
individual planes from the frame buffer. The 1053 operation selector will work with the Model 
236C, the Model 237 bit-mapped display, or with a color display connected via the HP 98627A 
RGB interface. Since the Model 237 has only one plane, the plane designator is ignored. 

The exception to producing a desirable image via this method occurs if your active CRT is 
a bit-mapped display that supports more pixels than your printer has dots. In this case, the 
dump starts at the upper left-hand corner of the screen and dumps as far to the right and 
down as there are corresponding dots on the printer. Another option is to use opcode 54 for 
the compressed dump for low resolution printers. This is only useful with HP98542A and 
HP 98543A displays. 

Either of these operation selectors sent to OUTPUT_ESC would take the image in the currently 
active CRT graphics frame buffer (the internal CRT by default) and send it to volume PRINTER:. 
By default the printer is assumed to be at select code 7, bus address 1. This can be changed 
by modifying the CTABLE.TEXT program on the CONFIG: disc (ACCESS: on double sided 
discs). Find the line: 

local_printer_def ault_dav = dauCsc: 7> ba:l> du:-l» du:-13 5 

This sets the DAV (device address vector) for the printer to be at select code (sc) 7 and bus 
address (ba) 1. By changing this line, you can alter the destination of data sent to the volume 
PRINTER: 1 . 701 is the default factory setting for printers. 


1 For an in-depth coverage of how to modify the CT ABLE . TEXT program, see the Special Configurations chapter of the Pascal 3.0 Workstation 
System Manual. 
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If a graphics dump operation is aborted with the [ STOP ) key, the printer may or may not terminate 
its graphics mode. 

If you have a printer which does not conform to the HP Raster Interface Standard, all is not lost. 
It must, however, be capable of printing raster-image bit patterns. There are two main methods 
by which printers output bit sequences. The first is: when a printer receives a series of bits, it 
prints them in a one-pixel-high line across the screen. The paper then advances one pixel’s 
distance, and the next line is printed. The other method (which lends itself to user-defined 
characters more than graphics image dumping) takes a series of bits, breaks it up into 8-bit 
chunks, and prints them as vertical bars 8 pixels high and one pixel wide. The next eight bits 
compose the next 1 x 8-pixel bar, and so forth. 

This latter method is that used by the HP82905 printer. The image (which is printed out 
sideways) takes a GSTOREd image and breaks the 16-bit integers into two 8-bit bytes, and 
sends them to the printer one row at a time. Writing your own routine to dump a graphics image 
to a non-comforming printer should not be difficult, given the ability of taking the graphics 
image and placing into your own data array (referred to in the last chapter). 

Note that on a CRT, an “on” pixel is light on an otherwise dark background, and on a printer, 
an “on” pixel is dark on an otherwise light background. Thus, the hard copy is a negative image 
of that on the screen. To dump light images on a dark background, you can invert every bit in 
the stored image. To invert the bits in a 32-bit integer, you can execute the following code 
segment: 

if N = ininint then 
N: = m a x i n t 
else 

N:=-N-15 

The reason for the subtraction is that Series 200/300 computers use twos- complement repre¬ 
sentation of integers. Also, you must consider MININT 1 as a special case because you cannot 
negate MININT in an integer; + 2 147 483 648 cannot be represented in a signed thirty-two bit 
twos-complement number. 


1 MININT and MAXINT are two standard constants in HP Pascal. MININT= -2 31 = — 
MAXINT = 2 31 - 1 = + 2 147 483 647. 


2 147 483 648, and 



3-4 External Graphics Displays and Plotters 


External Color Displays 

The HP 98627A RGB interface allows you to connect a color monitor to your computer, whether 
the computer’s internal CRT supports color or not. The HP 98627A does not, as mentioned before, 
support color map operations; thus, you cannot change the color of an area on the screen without 
redrawing the area. Nor can you define your own color-addition scheme as you can with a 
color-mapped device (see the Color Graphics chapter). In addition to this, there are only eight pure 
colors 1 ; to get others, you must go to dithering. 

There are many types of color monitors which you can connect to your computer through an HP 
98627A color monitor interface. In the Cont ro 1 Wo rd variable which is passed to the DISPLAY-INIT 
procedure, you must specify accordingly: 


Desired 

Display Format 

Description 

Bits 

10-8 

Standard Graphics 

512 by 390 pixels, 

60 Hz, non-interlaced 

U.S. Standard 

001 (256) 

512 by 390 pixels, 

50 Hz, non-interlaced 

European Standard 

010 (512) 

TV Compatible Graphics 

512 by 474 pixels, 

60 Hz, interlaced 
(30 Hz refresh rate) 

U.S. Television 

011 (768) 

512 by 512 pixels, 

50 Hz, interlaced 
(25 Hz refresh rate) 

European Television 

100 (1024) 

High-Resolution Graphics 

512 by 512 pixels, 

46.5 Hz, non-interlaced 

High Resolution 

101 (1280) 

HP Use Only 

Internal 

110(1536) 


Out of range values are treated as if ControlWord = 256, as is ControlWord = 0 (except Model 
237, where 0 keeps the type-ahead buffer, and 256 removes it). 


1 Only eight pure colors can be created on an external color monitor. This is because there is no control over the intensity of each color gun. 
Each color can be either off or on, and there are three colors: red, green, and blue. Two states, three colors: 2 3 = 8. 
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External Plotter Control 

There are many device-dependent operations you can do through calling the OUTPUT_ESC 
procedure. See Appendix B for details on all the things you can do. 

Controlling Pen Speed 

To improve the quality of the lines drawn by a plotter pen, you may want to make them draw more 
slowly. There are other factors, too, which can affect line quality. For example, humidity can alter 
the line quality of a fiber-tipped pen. To accomplish this, you can call the OUTPUT_ESC procedure 
with the appropriate parameters. Or, the following procedure will do it. 


•c ****************************************************************************! 


procedure P e n S p e e d(S p e e d : integer)! 

{ - > 

-C This procedure selects a pen speed for ah HPGL plotter. ! 

•C-! 

const 

S e t P e n S pe e d = 2050? {a mnemonic is better than a maiic nu mbe r ! 

u a r 

Iarrav: array HI..23 of integer! { \ These are variables > 

R a r r a y : array Cl..11 of real! -C ) needed by the OGL > 


Error: integer! i / procedure "output.esc" > 

b e Sin {procedure "PenSpeed") 

Iarray[1]:=Speed ! fuse the passed parameter! 

IarrayC2]:=0; (affect all pens! 

outPut_esc(SetPenSpeed >2 1 0 > I a r r a v iRarray (Error) 5 
if ErrorOO then Terror?! 

writelnl'Error '*Error:0t' in procedure PenSpeed".'); 
end; (procedure "PenSpeed"! 


The first element of the integer array specifies the pen speed; the range and resolution of pen 
speeds, and default maximum speed depend on the plotter. The second element of the array 
specifies the pens to be affected. One through eight specifies pens one through eight, respectively. 
Any value outside of this range is taken to mean, “Affect all pens.” 

Selecting a pen speed specifies a maximum speed rather than an only speed, because on short line 
segments, the pen does not have time to accelerate to the specified speed before the midpoint of 
the line segment is reached and deceleration must begin. 

This procedure also provides a skeleton for making other special-purpose routines. For most 
operations dealing with OUTPUT-ESC, one need only change the name of the procedure and the 
parameters being passed to the OUTPUT_ESC procedure. 
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Controlling Pen Acceleration 

On the HP 7580, HP 7585 and HP 7586 drafting plotters, you can specify the amount of accelera¬ 
tion the pen is to undergo when starting or ending a line. On any particular line, positive accelera¬ 
tion (speeding up) will occur until one of two things happens: 


• The midpoint of the line is reached, and negative acceleration (slowing down, or deceleration) 
must begin, to ensure that the pen will reach a speed of zero precisely at the second endpoint 
of the line it’s drawing; or 

• The specified maximum speed is reached. In this case, that speed will be maintained until the 
pen is at a particular distance from the second endpoint of the line. At that distance, which 
depends on the specified maximum speed and the specified acceleration, the pen will start to 
smoothly decelerate such that it will reach zero velocity at the second endpoint. 

The first element of the integer array passed to OUTPUT_ESC specifies the pen acceleration; it may 
range from one through four gees 1 2 3 4 . The second specifies the pens to be affected. One through eight 
specifies pens one through eight, respectively. Any value outside of this range is taken to mean, 
“Affect all pens.” 


Controlling Pen Force 

On many drafting plotters (e.g., HP 7580, HP 7585, HP 7586), you can specify the amount of 
force pressing the pen tip to the drawing medium. This is useful when matching a pen type 
(bail-point, fiber-tip, drafting pens, etc.) to a drawing medium (paper, vellum, mylar, etc.). Again, if 
a pen is partially dried out, it may help line quality to adjust the pen force. 


The PenSpeed procedure mentioned above can be modified slightly to control pen force. The 
operation selector should be 2051. The first element of the integer array specifies the pen force; the 
second specifies the pens to be affected. One through eight specifies pens one through eight, 
respectively. Any value outside of this range is taken to mean, “Affect all pens.” 


The force number is translated into a force in grams. If, for example, you have an HP7580A plotter, 
the force number is converted to force as follows: 


1 = 10 grams 

2 = 18 grams 

3 = 26 grams 

4 = 34 grams 


5 = 42 grams 

6 = 50 grams 

7 = 58 grams 

8 = 66 grams 


This is not by any means an exhaustive list of the things you can do with OUTPUTJESC, but it 
serves to acquaint you with the concept of using the procedure for controlling device-dependent 
operations. A thorough understanding of its use can only be gotten by combining information from 
the DGL Language Reference with actual hands-on experience. 


1 One “gee,” or one [earth] “gravity,” is the acceleration due to gravity at sea level. Its value is approximately 9.8 m/sec 2 or 32 ft/sec 2 . 
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Interactive Graphics 


Chapter 

4 


Introduction 

It has already been pointed out that graphics is a very powerful tool for communication. The 
high speed available from Series 200/300 computers makes possible a powerful mechanism for 
communicating with the computer: that tool is Interactive Graphics. 

A Simple Example 

Interactive graphics is demonstrated well - albeit primitively - in the following program, which 
uses an HP-HIL 1 tablet 2 . It is a good introduction to interactive graphics in that it shows one 
of the most elementary concepts necessary for an interactive program: feedback. Feedback, 
in this context, is the concept of immediately seeing, on an output device, the results of some 
action done on an input device, and the seeing of those results can cause a modification to 
subsequent input. This feedback takes place so quickly that a continuous, flowing action can 
take place. 

The following program is very simple. It merely tracks the stylus of an absolute locator, showing 
the immediate feedback. When any of the buttons on the stylus is pressed, the program prints 
the X and Y values, as well as a number which indicates which button was pressed. 

$search '*:GRAPHICS. '$ 
program Track(output)5 
i in p o r t d 31 _ 1 i b ! 
uar 

Error*. integer! 

Button: integer? 

X t Y: real; 

b e 3 i n 

3raphics_init ? 
display _init(3»0»Error) 5 
if ErrorOO then 
b e 3 i n 

w rit e1n( 'Error ' »E r r o r:0 *' 
halt! 
end? 

locator_init(201tError) i 
if ErrorOO then 
b e 3 i n 

w r i t e 1 n ( 'Error ' > E r r o r :0 »' 
halt? 
e n d ; 

a w a i t _ 1 o c a t o r (2 t B u 11 o n > X t Y) 5 
write1n( 'X: '» X:10:4 , ' Y: 
e n d. 

If you get an error initializing either the display or the locator, see the appropriate section in the 
“Graphics Procedure Reference” section in Appendix B in the back of this manual for help. 

1 There is a family of devices called HP-HIL devices for the Pascal Workstation. HP-HIL stands for “Hewlett-Packard Human Interface 
Link.” 

2 3.2 Pascal also supports a new driver for the HP-HIL mouse and knob. Access these by substituting 202 in the line LOCA- 
TOR_INIT(20 TERROR); 


{3et 3 r a p h i c s routines} 

{error number return variable} 

{which button on the stylus was pressed?} 

{X and Y coordinates when button pressed} 

{initialize the Sraphics system} 

{initialize the display device: main screen} 
{if an error occurred..*} 

on DISPLAY_INIT, ')5 {...say so...} 

{ ... and quit.} 

{locator device: HP-HIL absolute locator} 

{if an error occurred...} 

on L0CAT0R.INIT.')5 {...say so...} 

{... and quit.} 

{track the stylus until button pressed} 

' t Y:10:4 t ' Button: ' * B u 11 o n:3) 5 
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Notice when running this program that a small, cross-hair cursor describes, on the screen, the 
same movements as those you make on the tablet. This is the mechanism of feedback, men¬ 
tioned earlier. When your hand moves up, the cursor moves up. When your hand moves to the 
right, the cursor moves to the right, and so forth. And note that the feedback is so fast and 
accurate that, many times, you do not even need to look at the tablet to see where the stylus is; 
you can tell where the stylus is by looking at the position of the cursor on the screen. 

A graphics tablet is not the only graphics input device, as the next section shows. The program 
in the following example shows an interactive program which is a bit more complex. 

A More Elaborate Example 

Compile and execute the program “BAR_KNOB”, from your “DGLPRG:” or “DOC:” disc. If 
you have a knob, and you turn the knob clockwise, the bar graph displayed on the screen will 
indicate a larger value. At the same time, the numeric readout underneath the bar will increase 
its value. Turning the knob counterclockwise has the opposite effect. (If your computer has no 
knob, the arrow keys or mouse will work, but may not feel as “natural.”) This is an effective 
demonstration of all the key characteristics of an interactive graphics system. They are: 

• A data structure. (The value displayed underneath the bar is the contents of a variable that we 
are modifying. The internal variable containing the value is a degenerate case of a data 
structure.) 

• A graphic display that represents the contents of the data structure. (The bar graph and the 
numeric display represent the value of the internal variable.) 

• An input mechanism for interacting with the displayed image (the knob, in this case.) 

This is the minimum set of requirements for an interactive graphics system. A key feature of 
interactive graphics is that it is a closed loop system. This means that the operator can immediately 
see the effect of his action on the system, and thus base his next action not only on the state of the 
system, but also on the effect his last action had on the system. A few points are worth noting about 
this system: 

• The knob is used because it is functionally appropriate. While we could have entered numeric 
values to control the bar graph, the knob “feels” right. We are used to using knobs to control 
metered readouts. 

• Control of the value with the knob is fairly intuitive. The normal range markings make it readily 
apparent when the value is in range. Little explanation is needed, due to the immediate 
feedback from the displayed image. 

• A system is “modeled.” The user’s input has a well defined relation to the output of the 
system. 

Thus, interactive graphics can be as simple as representing a single value on the screen and 
providing the user a method for interacting with it. It can also be as complex as a Printed Circuit 
layout system. This chapter will not tell you how to build a Printed Circuit layout system, but it will 
provide some hints on implementing interactive graphics systems that work. 
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Characterizing Graphic Interactivity 

One of the most important things in designing a good interactive graphics system is characterizing 
the interaction with the system correctly. Properly characterizing the interactivity allows selection of 
the most appropriate device for interaction with the system. Three things have to be considered in 
characterizing the interaction: 

• The number of ways the graphics system can be changed. That is, the number of degrees 
of freedom in the system. 

• The quality of each of the degrees of freedom. This describes how the input to a degree of 
freedom can be changed. 

• The separability of the degrees of freedom. 

Once again, the best way to understand the characterization of interaction is to see an example 
in action. Compile and execute “BAR_KNOB2” from your “DGLPRG:” or “DOC:” disc. This 
program is very similar to “BAR_KNOB”, but it has several bars, instead of one. This introduces 
another degree of freedom to the model. The original program had a single degree of freedom, 
the value indicated by the bar graph. The quality of this degree of freedom is continuous. The 
new program has the same continuous input (which is still handled by the knob) but has added 
a second degree of freedom, the selection of the bar graph you want to modify. This degree of 
freedom is quantizable, and is handled by the numeric keys. (Softkeys would be even better, 
but require digging into the operating system.) The degrees of freedom are also separable, 
since you don’t need to interact with both of them at once. 

The degrees of freedom are not separable in freehand drawing-you want to change X and Y 
simultaneously. They are only partially separable in laying out images on a screen — you can get 
by with moving along one axis at a time, but it’s easier if you can interact with both of them at 
once. 
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Selecting Input Devices 

The purpose of the discussion on characterization of graphic interaction was to lay the ground¬ 
work for discussing when various input devices are appropriate. There are several available on 
HP desktop computers, and choosing the correct one is critical to the design of a highly 
productive human interface for an interactive graphics program. 

• Knob and/or cursor-control keys, 

• Mouse, 

• Tablet, 

• Touchscreen. 

Single Degree of Freedom 

Many interactive graphics programs need deal only with a single degree of freedom. The 
appropriate control device for such programs depends on whether continuous control or quan¬ 
tized control is needed. 

The program “BAR_KNOB” is a good example of a single degree of freedom that is con¬ 
tinuous. The knob is ideal for controlling a program like this. If faster movement is needed 
before “fine tuning,” the shift key can be used as a multiplier to change the interpretation of the 
knob. The knob is read through the KEYBOARD file. The knob generates forward and back 
spaces for clockwise and counterclockwise motion, or line-feeds and “up-spaces” if the shift 
key is held down while the knob is turned. The following program (“BAR_KNOB” from the 
“DGLPRG:” or “DOC:” disc) shows how to interpret the knob for a continuous, single degree 
of freedom, as well as how to update the display to show the results of the interaction. 

$ucsd »debusf$ 

program Test (Keyboard .output)5 

import d3l_vars >d51 _ty p es >d31 _ 1 ib >d 4 1 _inq 5 

type 


States= 

(On .Off) 5 

DrawMode= 

( D raw > E ras e . Comp > NonDom 

const 


FS = 

oh r(28)5 

BS = 

oh r(8) 5 

US = 

ch r(31)5 

LF = 

ohr(lO)5 

CR = 

chr(13)5 

0 = 

'O' 5 

01* 

'q ' 5 

Unde rlin e = 

ch r(132)5 

Ind-off* 

ch r(128)5 

i 

O 

z? 

ii 

chr(129)5 

MinBa rY = 

0 5 

MaxBa rY = 

100! 

MinBa rX = 

180 5 

MaxBa rX= 

220 5 

I n c D e 11 a = 

0.15 
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var 

Error_num: integer! 

I »T e m p I n t: intesferS 

Level>LastLevel: real! 

Delta: real ! 

CharWidth>CharHeiSht: real? 

Character: char! 

Done: boolean! 

Keyboard: text! 

TempStrinS: Gst rin$255 ! 

$PaSe$ {**#*****#**#**#***#***#***##*##*#*#**##***##*##**#*#**#*#**###******} 

procedure GraphicsDisplav(State:States {On/Off})5 

const 

GraphicsDisp= 1050! 

ua r 

Error: i n t e $ e r! 

SwitchA rray:inte $e r 5 
Dummy: real ! 

b e $ i n {procedure GraphicsDisplay} 

case State of 

On:SwitchAr ray : = 15 
0ff:SwitchArray:=05 
end! {case State of} 

output.esc(GraphicsDisp>1>0 >SwitchArray>Dummy >Erro r) 5 

if Error < > 0 then 

writeln ('Error '>Error:l>' encountered in GraphicsDisplay')5 
end! {procedure GraphicsDisplay} 

$pa$e$ {********************************************************************} 

procedure A1phaDi spI ay(State:St ates {On/Off})5 

const 

AlphaDisp=1051 ! 


E r r o r: i n t e s e r 5 
SwitchA r ray:inte Se r 5 
Dummy:real ! 

be Sin {procedure A1PhaDisplay} 

case State of 

On:SwitchA r ray: = 1 ! 

Of f:SwitchAr ray:=0 5 
end! {case State of} 

output.esc(A1phaDi sp >1>0 >Swit chAr ray>Dummy>E r ro r) 5 
if Error <> 0 then 

writeln ('Error '>Error:l>' encountered in AlphaDisplay') ! 
end! {procedure AlphaDisplay} 

$pa$e$ -C********************************************************************} 
be Sin {Main Pros ram} 

L e ve1:= 0 ! {current heisht of bar} 

LastLeve1:= Leve 1 5 {previous heisht of bar} 

Sraphics_init! {initialize the Sraphics system} 

display_init(3>0>Error_Num)5 {which output device?} 

if Erro r_Num=0 then be Sin {output device initialization OK?} 

AlphaDisplay(Off)5 {turn off alpha display} 

GraphicsDisplay(On) ! {turn on Sraphics display} 

set-aspect(511>389)5 {use whole screen} 

set-window(0>400>-30>120) ! {scale the window for the data} 

set_color( 1)5 {color number 1: white} 
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CharWidth : =(0.035*400)5 
CharHeiSht: = (0*05*150) 5 
set_char_size(CharWidth. CharHei3ht) i 

{-Outline the Bar -.. 

moue (MiriBa rX-0.5 .MinBa rY-0.5)5 
1ine(MinBarX-0♦5 .MaxBa rY+0.5) ! 

1 ine (MaxBarX+O.5 .MaxBa rY+O.5)5 
1in e(M a x B a rX+0.5 .Min B a rY-0.5)5 
1ine(MinBarX-0.5 .MinBarY-Q.5)5 
{- Label the bar (numeric labels) 


{char width: 3*5/!'. of screen width} 
{char height: 57, of screen heisht} 
{install character size) 


{moue to lower left corner*..} 
{•♦♦draw to upper left corner***} 
{..♦draw to upper risht corner...} 
{...draw to lower left corner...} 
{...and draw to lower left corner.} 


} 


} 


for I:= 0 to 10 do be 3 in 

s t rw rite(TempSt rin 3 .1 .Temp Int > I * 10:3 >' - ')5 

moue (179-s t r 1 en(TempSt rin 3)*Cha rWidth» 1*10-0. 24*Cha rHei3ht) 5 
3tex t (TempSt r in 3)5 
end? {for I:=1 to 10 } 

{-Label the bar (textual labels) -} 


moue (221. 80-CharHei3ht/2)5 
3text ('-Hi3h Normal ') ! 
moue (221. 60-CharHei3ht/2)5 
3text ('-Low No rmal')5 
{---- How about some instructions 
CharHidth:=(0.02*400)5 
CharHei3 h t: = (0.035*150)5 
set_char_size(CharWidth> CharHei3ht) ! 
moue (0. 5)5 

TempStrin3: ='Use the Knob to'+CR+LF! 

3text (TempSt rin3) I 

TempStrin3: = 'Adjust the ualue .'+CR+LF 5 
3text (TempStrins) i 
TempStrin 3 : = ' ' +CR + LF 5 
3text (TempSt rin 3) i 
TempStrin 3: = 'SHI FT with the Knob '+CR+LF! 
3text (TempStrin3)5 
TempStrin 3:='speeds it up.'+CR+LF 5 
3text (TempSt rins) 5 
TempSt rin 3 : = '' 5 

{- Set a 3ood character size 

CharWidth -. = (0.035*400) 5 
Ch a rHei3h t: = (0.05*150)5 
set_char_size(CharWidth> 
repeat 

read(Keyboard .Character) ! 

D e 11 a: = 0 5 
case Character of 

FS: Delta:=IncDelta! 

BS: De1ta:=-IncDe1ta 5 

LF: De11a: = 10*IncDe11a 5 

US: Delta:=-10*Inc Delta! 

0.01: Done:=TRUE 5 
otherwise 

end! {case ord(Character)} 
if Delta>0 then be3in 
set_color(l) ! 

while (L e u e 1 < L a s t L e u e 1+D e 11 a) 

L e u e 1: = L e u e 1 +1 n c D e 11 a ! 
moue(MinBarX .Leue1)5 
1ine(MaxBa rX >Leue1)5 
end {while (LeueKLastLeuel) 


{char width: 3.57 of screen width} 
{char hei3ht: 57 of screen hei3ht} 
{install character size} 

{3et character without echo to screen} 
{start by assuminS no motion} 

{what's the character?} 

{ri3ht arrow?} 

{left arrow (bacKspace)?} 

{down arrow?} 

{up arrow?} 

{or Quit?} 

{if none of the aboue. iSnore it} 

{Goin3 Up} 

{we want to draw lines} 
and (Leue1<MaxBarY-IncDe11a) do be3in 
{new top of bar} 

{moue to left e d 3 e. ♦. } 

{.♦.and draw to ri3ht ed3e} 
and (Leue KMaxBarY) } 


{char width: 27 of screen width} 
{char hei3ht: 3.57 of screen hei3ht} 


{install character size} 


CharHei3ht)! 
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end {if (De11a>6) and (Leue1<100) ) 
else besin {Goins Down) 

if (De11a<0) and (Level>-0t5*IncDelta) then besin 

set_color( 0 )» {we want to erase lines) 

repeat 

wove (MinBarX > Level) 5 {move to the left edSe..«) 

1 ine (MaxBar>( > Level) » {♦♦♦and draw to the risht edSe) 

Level:=Level-IncDelta? {new top of bar) 

until (Level<=LastLevel+Delta) or (Leve 1 <=MinBarY) 
end ? {if (Delta< 0 ) and (Level> 0 )) 


e n d 5 

{- How about some numbers? 

set_color( 0 ) I 

s t rw r i t e (Tem pS t r i n s >1 »T e m p I ri t 
mo ve ( MinBa r)<+ ( MaxBa rX-Mi nBa rX 
MinBarY- 2 #CharHeiSht )5 
St ext(TempSt rin s) j 
set_color(l) 5 

st rw rite(TempSt rin S > 1 >TempInt 
move (Mi nBa rX+ (MaxBa rX- Min Ba r 
MinBarY- 2 *CharHeiSht) 5 
Stext(TempStrinS )5 
LastLeuel:=Level 5 
until Done? 

GraphicsDisplay (Off) 5 
AlphaDisplav (On )5 
display_te rmi 
e n d 5 

Sraphics.te rm j 
end* 


{we want to erase lines) 
♦LastLevel:5:l)5 {convert level to chars) 
)/2-strlen(TempStrinS)#Charkidth/2» 

{erase the old number) 

{we want to erase lines) 
t L e v e 1 : 5 : 1 ) ; 

X) / 2-st rlen(TempSt rin S)*Cha rWidth/2 > 

{write the new) 

{remember the old nurnb e r) 

{repeat until user hits COD 
{turn off Sraphics display) 

{turn on alpha display) 

{clean up loose ends) 

{terminate the Sraphics pacKaSe) 
{main pros ram) 


) 


Keys can be used for quantizable control of a degree of freedom. It is also possible to use keyboard 
entry of numeric values for quantizable information. 

Non-separable Degrees of Freedom 

One characteristic of multiple, non-separable degrees of freedom is that they are generally 
continuous. The most common operation of this type is free-hand drawing. This is most easily 
accomplished with the 9111A graphics tablet, HP-HIL tablet, or mouse. 

Separable Degrees Of Freedom 

In many programs, the degrees of freedom are completely separable. In fact, for some opera¬ 
tions, it is definitely preferable to have totally independent control of the degrees of freedom of 
the model. 

All Continuous 

If all the degrees of freedom in a model are continuous, then the selection of the degree of 
freedom to operate on becomes another degree of freedom, and is quantizable. A good choice 
is using the keyboard to select the degree of freedom and then using the knob or mouse to 
control the input to that degree of freedom. This is not as effective as a bank of knobs, but 
adding a bank of knobs means adding hardware. The program “BAR_KNOB2”, on the 
“DGLPRG:” or “DOC:” disc is an example of this type of interaction. Single keystrokes are 
used to select the degree of freedom you are operating on, and then the knob is used to vary 
the value along that degree of freedom. 
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The following key interpretation loop is used in “BAR_KNOB2” to allow the user to select the 
bar to be controlled, as well as controlling the value of the selected knob. 

READ (KEYBOARD>Character)5 
Delta := 05 
CASE Character OF 

FS : Delta := IncDe1ta 5 

BS : Delta :=-IncDe1ta5 

LF : Delta ;= 10 * In c D e11 a 5 

US : Delta :=-10*IncDe11a 5 

0 >01 : Done := TRUE 5 

'1 ',. '5': BEGIN 

Clearlnd(Bar)5 

Bar := ORD (Character)- 0RD('0')5 
Setlnd(Bar)5 

end; 

OTHERWISE 

END! {CASE Character) 

All Quantizable 

If all the degrees are quantizable, using the keyboard (or using softkeys if you have requisite system 
design experience to use them) is appropriate. 

Mixed Modes 

In most sophisticated graphics systems, several degrees of freedom in the system interact with each 
other. A good example is a graphics editor. In a graphics editor, your primary interaction is with a 
visual image, and the degrees of freedom (X and Y location) for that operation are partially 
separable, at best. (They are non-separable if it supports freehand drawing.) There is also a degree 
of freedom involved in controlling the program. The program control is strongly separable from the 
image creation operation. 

The most appropriate device for supporting mixed modes is the HP 9111A graphics tablet or 
HP-HIL tablet. The tablet supports two modes of interaction by partitioning the digitizing 
surface into two areas. Sixteen small squares along the top of the tablet can be used as softkeys 
to provide a control menu. The large, framed area underneath the softkeys is the active 
digitizing area. The active digitizing area is used for interacting with the image you are creating. 
Other menu/ image area combinations are also possible. 

It is possible to combine the quantized, separable control operations with continuous, non- 
separable image editing. This is done by using the active digitizing area for interacting with the 
image and using the menu area for controlling the operations available in the editing program. The 
operator does not have to change control devices to access the different interaction modes. 
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Echoes 

An important part of interactive graphics is letting the operator know “where he is at.” This can be 
done by updating the image. In other operations, such as menu selection, object positioning, and 
freehand drawing, it is important to show the operator where he is. In many cases, this can be done 
with AWAIT_LOCATOR. 

The Built In Echo 

Many graphics applications can be handled using the built-in echo. AWAIT.LOCATOR allows 
you to access one of the built-in echoes for digitizing. The following program interprets a 
menu to select one of the built in echoes, and then draws an appropriate image on the CRT 
after the call to AWAIT.LOCATOR completes. It is on your DGLPRG: or DOC: disc, in 
the file called “LOCATOR”. If you have an HP 9111 Graphics Tablet, changing the constant 
LOCATOR ADDRESS from 2 to 706 will allow you to use the tablet for a locator instead of 
the knob or mouse (change to 201 for HP-HIL tablet or 202 for new HP-HIL Mouse/Knob 
capability). 

$ d e b u 3 $ 

p ro 3 ram Te st(out put) I 


import d 31 _ v a r s > d 31 _ t y 

p e s t d 31 _ 1 i b * d 31 

_ p o 1 y > d 31 _ i n q 5 

type 

Commands= 

0 ♦ *85 

{nine commands total) 

RealArray= 

array El.*51 

of re a 15 

const 

FS = 

oh r(28)5 

{ri3ht arrow) 

BS = 

c h r (8) 5 

{left arrow or backspace) 

US = 

ch r(31)5 

{up arrow) 

LF = 

c h r (10) 5 

{do w n arrow) 

CR = 

ch r(13)5 

{carriaSe return) 

M i n X = 

0 5 

{minimurn X value for screen) 

MiriY = 

0 5 

{minimum Y value for screen) 

M a x X = 

5115 

{maximum X value for screen) 

M a x Y = 

3835 

{maximum Y value for screen) 

X ran Se = 

MaxX-MinX5 

{total ran3e of X) 

Y ran 3e = 

MaxY-MinY 5 

{total ran3e of Y) 

LocatorAddress= 

25 

{2 for Knob ,706 for 3111) 

var 

Erro r_num: 

integer 5 

{error return variable) 

I > T e m p I n t: 

integer; 

{utility variables) 

B u 11 o n V a 1 u e : 

integer! 

{which button selected?) 

X i n t Y i n : 

real 5 

{location of di3itized point) 

X1 a s t > Y1 a s t: 

real 5 

{last di3itized point) 

CharWidth >CharHei sfht 

: real 5 

{char size in world coords) 

Done: 

boolean 5 

{are we supposed to quit?) 

NewLine: 

boolean 5 

{start new line?) 

TempSt rin 3: 

Gstrin 32555 

{utility variable) 

EchoSelect,EchoSelector: 0 * ♦ 3 5 

{menu selection) 

MenuT o p: 

real? 


CellWidth: 

real 5 

{width of menu spaces) 

Command: 

Commands 5 

{which command selected?) 

$pa3e$ -C*-)(-*******************-*****************************-)H(-****************> 

procedure DrawMenui 

ua r 

I: 

i n t e 3 e r 5 

{loop-control variable) 

Ylabel: 

real 5 

{Y position of entree label) 

Y a r r a y : 

RealArray? 
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procedure MenuCe 11(I:integer) ! 
u a r 

TempPitch: 

'•'label: 

Karray: 
b e 3 i n 
case I of 
be Sin 

TempSt rin 3:= 'STOP 


real 5 
real I 
R e a 1A r r a i 


0 ! 


1 


{temporary variable} 

{X position of entree label} 
{X positions of entree cell} 
{procedure MenuCell} 


{label text} 


X a r r a y [ 1 ] 
X a r r a y C 2 ] 
X a r r a y C 3 ] 
XarrayCfll 
X a r r a y C 5 3 


\ 


\ 


positions for box 


/ 


/ 


1 


= 0 i 

= 2*Ce 1lWi dth ! 

= 2*CellWidth ! 

= 0 ! 

•0 i 

XI abe 1 .* =MinX+Ce 11 Wi dth-s t r 1 en (TempSt rin 3 ) *Cha rWi dt h/2 5 
e n d 5 

.10: be 3 i n 

=CellWidth*I5 
=CellNidth+TempPitch! 

= 2*CellWidth+Te«(pPitch! 
=2*CellWidth+TempPitch! 

=CellWidth+TempPitch> 

=Ce11Width+TempPitch5 


{temporary shorthand variable} 


\ 


\ 


positions for box 


/ 


/ 


TempPitch 
X a r r a y E13 
X a r r a y [ 2 3 
X a r r a y C 3 3 
X a r r a y [ 4 3 
X a r r a y C 5 3 

TempStrin3 : = ' '! {label text} 

if I< = 8 then strwrite(TempStrin3>1 tTempInt>1:1)5 
Xlabel:=Xarray[13+CellWidth/2+strlen(TempStrin3)*CharWidth/25 
e n d 

end! {case I of} 

polyline(5»Xarray»Yarray)! {draw perimeter of cell} 

move(X1 abe1 > Y1 abe1) ! {move to the ri 3ht place} 

3text(TempStrinS)5 {label the text} 

end! {procedure MenuCell} 

{ -------- 


b e 3 i n 

Y a r r a y [ 13 
Yarray[23 
Ya r ray[33 
Yarray[43 

Y a r r a y [ 5 3 
Ylabel:=Min 
for I:= 0 to 


{procedure DrawMenu} 


= M i n Y ! 

= M i n Y ! 

= M e n u T o p! 

= M e n u T o p! 

= M i n Y 5 

+ (Men uTo p-M inY)/2- 
10 do MenuCell(I)! 


{ \ 

{ ’ 
{ 

{ , 
{ / 

Cha rHei3h t/2 ! 

{do 


all 


values for box 


{Y position of label} 
the entree cells} 


end! {procedure DrawMenu} 

$pa3e$ {*****************************■*•**************************************} 
function ChecKMenutXin:real):Commands! 

be3in {function ChecKMenu} 

if Xin<2*Ce11Width then ChecKMenu:=0 {X outside of menu?} 
else b e 3in 

Templnt:=trune((Xin-Ce1lWidth)/Ce1lWidth)! {which sell chosen?} 
if Templnt>8 then ChecKMenu:=Command 
else C h e c K M e n u:= T e m pI n t 
e n d ! 

end! {function ChecKMenu } 
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$F>a3e$ {********************************************************************} 

be Sin {Main pro-3 raw} 

tfraphics-init! {initialize the Graphics system} 

display_init(3>0>Error_Num)5 {which output device?} 

if E r ro r_Num< >0 then be Sin {output dev i c initialization OK?} 

w rite 1 n ( ' I failed to initialize the display.')! 
writeIn( 'Error number ' >Error_Num:2>' was returned. ')! 
end {if Error_Num<>0} 
else b e S i n 

LQCATOR_init(LocatorAddress>E r ro r_Num) i 
if Error_Num<>0 then be Sin 

w rit e 1 n( ' I failed to initialize the locator.')! 


write In('Error number ' >Error_Num: 2>' was returned.')! 
end {if Error.Num< > 0 } 
else b e S i n 

set-aspect(511>383) ! 
set_window(0 >511 >0 >389) i 
CharWidth:=0.035*5115 
Cha rHeiSht:=0.05*389 5 


{No errors so far} 

{use whole screen} 

{scale window for data} 

{char width: 3.5% of screen width} 
{char heisht: 5% of screen heisht} 


set_char_size(CharWidth >CharHeiSht)!{install 


{m e n u 
{each 
{ d r a w 
{yes > 
{start 


MenuTo p:=Y ran Se/13 5 
Cel IWidth:=XranSe/12! 

D r a w M e n u ! 

NewLine : = t rue ! 

EchoSelect:= 4 5 
Command:=4 5 
Done:=false! 
repeat 

if NewLine then 
Echo9elector:=2 
else 

EchoSelector:=Echo3elect! 
aw a i t _ 1 o c a t o r (E c h o S e 1 e c t o r > B u 11 o n 0 a 1 u e > X i n > Y i n ) 


characte r size} 
is 1/13 the total screen heisht} 
entree cell 1/12 screen width} 
the menu} 

we are startinS a new line} 
pros ram with default command} 


{ditto} 
{no > we 


re not done yet} 


{startinS a new line?} 


if Yin<MenuT op then be Sin 
NewLine:=t rue 5 
Command:=ChecKMenu(Xin) 
case Command of 
0: D o n e : = t r u e ! 

1: EchoSe1ect:=1 
2: EchoSe 1 ect: =2 
3: EchoSe1ect:=3 
4: EchoSe lect:=4 
5: EchoSe1ect:=5 
B: EchoSe 1 ect: =G 
7: EchoSe1ect:=7 
8: EchoSe 1 ect: =8 
end {case} 
end {if} 
else b e Sin 

if NewLine then be Sin 
NewLine: = false ! 
s e t _ e c h o _ p o s (X i n > Y i n ) 
m o v e (X i n > Y i n ) 5 
Y1 a s t: = Y i n 5 
X1 a s t: = X i n 5 


{user choose menu option?} 
{start a new line next time} 
{determine menu s e 1 e c t i o n } 
{which com m a n d } 


es > 
\ 

\ 

\ 


we're done with the 


\ Select the appropriate 
/ EchoSelector. 


p ro S ram} 
} 

} 

} 

} 

} 

} 

} 

} 


{not a menu s e 1 e c t i o n } 

{start a new line} 

{now we're in the middle of a line} 
{move the Sraphics cursor} 

{cause line-dr aw ins to start there} 
{remember the last X..♦ } 

{... and the last Y} 
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else b e 3in 

s e t _ e c h o _ po s(Xin > Yin)5 {m o ue the 3 r a p hic s cursor} 

if (Xin = X1 ast) and (Yin = Y1 ast) then NewLine: = true 
else b e 3in 

case EchoSelect of 

1.♦7: 1in e(Xin > Yin) i {draw a line} 

8: b e 3 i n 

1 i n e (X1 a s t > Y i n ) 5 
1in e(Xin> Y in) 5 
1 i n e ( X i n t Y1 a s t) 5 
1 i n e ( X1 a s t > Y1 a s t) 5 
N e w Lin e:= t rue 5 
e n d 

otherwise 

end! {case EchoSelect of} 

X1 a s t: = X i n 5 {remember the last X ♦ . . } 

Ylast:=Yin! {...and the last Y} 

e n d 
e n d 5 


e n d ! 

until Done! 
locator-term! 
display_te rm! 
end! {Error trap} 
e n d ! 


{are we done vet?} 
{terminate the locator} 
{terminate the display} 


3 raphics_te rm ! 
e n d. 


{terminate the 3raphics system} 
{Main pro3ram} 


Rubber Echoes 

If you have run the progam “LOCATOR,” you will have seen that several of the echoes are 
rubber-band echoes; in other words, they create lines that seem to stretch between various 
points on the screen. Echoes 4 through 8 require two points to define them. One of these points 
is the point being tracked with the AWAIT_LOCATOR statement. The other is the anchor point, 
and is set using the SET_ECHO statement. After using one of the rubber-band echoes, and 
drawing the figure it represents, it is necessary to get a new point to anchor the next echo to. 
This is done in the program “LOCATOR” by the following block of code: 


IF NewLine THEN BEGIN 
NewLine := FALSE! 
SET_ECH0_POS (X in .Yin)! 
MOUE (Xin > Yin)! 

Y1 a s t: = Y i n ! 

X1 a s t: = X i n 5 


END 
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ELSE BEGIN 

SET_ECHO_POS (Kir.»Yin) 5 
IF (Kin = Xlast) AND (Yin = Ylast) THEN 
NewLine := TRUE 
ELSE BEGIN 

CASE EchoSelect OF 

1. . 7: LINE (Kir, .Yin) 5 
8 : BEGIN 

LINE (Klast > Yin)5 
LINE (Kir,. Yin); 

LINE (Kin. Ylast)? 

LINE (Klast . Ylast)? 

NewLine := TRUE. 

END 

OTHERWISE 

END? {CASE EchoSelect of} 

Klast := Xin 5 
Ylast := Yin; 

END 

end; 

In the preceding code, the anchor is set to the last digitized point, unless the same point was 
digitized twice, in which case the small cross-hair cursor can be used to select a new anchor 
point. Once a new anchor point is selected, the rubber band cursor mode is returned to. 

When the knob is being used as a locator, it is also possible to use SET_ECHO to establish the 
initial position of the locator when AWAIT_LOCATOR is called. 

Tablets and Aspect Ratios 

If the knob is used as a locator for the CRT, the mapping between the locator device and the 
display device is isotropic, since the two devices use the same display mechanism. This is not 
true if an external digitizing device (such as the HP 9111A or HP-HIL graphics tablet) is used. 
The default aspect ratio for the 9111A is 0.7234, while the CRT of the Model 236 —0.7613 (as 
set up in “LOCATOR,” above). This means that a square area on the graphics tablet does not 
represent a square area on the CRT. This is not a tremendous problem in many interactive 
graphics programs, where the tablet is merely used to point at objects. However, in some 
applications, those in which the tablet is used to copy an existing document into the computer, 
the distortion is not acceptable. This is easly remedied, through the SET_LOCATOR_LIM 
procedure. The following addition to the “LOCATOR” program will set the tablet to the same 
aspect ratio as the CRT, insuring the desired isomorphic transformation. 

ELSE BEGIN {No errors so far} 

SET-ASPECT (51 1 .389) ? 

IF LocatorAddress = 70S THEN BEGINfThis is a tablet} 

SET_L0CAT0R_LIM(0>(511/389)*217.6.0 .217.G >Erro r_num)! 

IF Error_r,ufrt <> 0 THEN 

WRITELN (Error_nuw:2»' encountered in SET-LOCATOR-LIM .') 5 
END; {IF LocatorAddress = 706} 

SET-WINDOW (0.511.0.389)5 



4-14 Interactive Graphics 



5-1 


Color Graphics 


Chapter 

5 


Color! 

Color can be used for emphasis, for clarity, and just to present visually pleasing images. Color is 
a very powerful tool, and it follows directly that it is very easy to misuse. Be careful in using 
color, and it will serve as a valuable tool for communication. Misuse it, and it will garble the 
communication. 


The DGL Color System 

In order to create a device independent programming language, it is necessary to model an 
ideal system, and then create transformations to map that system onto real hardware. This is 
the way the Device independent Graphics Library (DGL) works. Understanding the ideal color 
system will make it much easier to understand the actual implementations that are available on 
your computer. 

In order to understand the color system, it is necessary to understand two concepts: 

• Color as an Attribute 

• Models for Color Specification 

After covering these topics, we will also go into the concept of a color space, which is another way 
of describing the color models that are used in DGL. 

Color As An Attribute 

We have already dealt with the attribute of linestyle, and the attributes which describe the fill pattern 
in a polygon. Color is another primitive attribute. Two procedures in DGL allow you to specify the 
attribute of color: 

• SET_COLOR selects the color used by GTEXT, LINE, INT_LINE, POLYLINE and INT_ 
POLYLINE, as well as the edges generated by POLYGON, POLYGON_DD, INT_POLYGON 
and INT_POLYGON_DD. 

• SET_PGN_COLOR selects the color used for the interior of polygons generated by POLY¬ 
GON, POLYGON-DD, INT_POLYGON and INT_POLYGON_DD. 

Notice that SET_COLOR and SET_PGN_COLOR both select a color attribute. The selection is 
made from the color table. 
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The Color Table 

The color table is a repository of color definitions to be used for displaying primitives. It 
is used to describe both lines and filled areas. The color table for Series 200 computers, HP 
98543A displays, HP 98545A displays, and the 4-plane HP 98700A display is a list of 32 
colors. This provides 32 colors for the color attribute of graphics primitives. For displays HP 
98547A and HP 98549A, the color table is a list of 80 colors. On the HP 98700 8-plane, HP 
98550A, and 362/382 internal color displays, the list is 272 colors. 

Default Colors 

When DGL is initialized for a color display the color table is set up with the following values: 

Default Color Table Values 


Value 

Color 

0 

Black 

1 

White 

2 

Red 

3 

Yellow 

4 

Green 

5 

Cyan 

6 

Blue 

7 

Magenta 

8 

Black 

9 

Olive Green 

10 

Aqua 

11 

Royal Blue 

12 

Maroon 

13 

Brick Red 

14 

Orange 

15 

Brown 

16 through 

White 


Last Color 


The Primary Colors 

The lower eight pens are the colors of the default color map; the colors that can be created by 
turning the guns of a color CRT on or off, in various combinations : 

• Black and White (the extremes of no-color) 

• Red, Green, and Blue (the additive primaries) 

• Cyan, Magenta, and Yellow (the complements of the additive primaries - which happen to 
be the subtractive primaries) 

The Business Colors 

The upper 8 colors (8 through 15) were selected by a graphic designer to produce graphs and 
charts for business applications. The colors are: 

• Maroon, Brick Red, Orange, and Brown (warm colors) 

• Black, Olive Green, Aqua, Royal Blue (cool colors) 

These colors are one designer’s idea of appropriate colors for business charts and graphs. They 
were chosen to avoid clashing with each other. A technique for using them is described under 
“Color Hard Copy” in the “Color Spaces” section at the end of this chapter. 
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Monochromatic Defaults 

If a monochromatic display device is being used, the color table defaults to a set of dithered 
gray patterns: 


Default Monochromatic Color 
Table Values 


Value 

Luminosity 

0 

0.0000 

1 

1.0000 

2 

0.9375 

3 

0.8750 

4 

0.8125 

5 

0.7500 

6 

0.6875 

7 

0.6250 

8 

0.5625 

9 

0.5000 

10 

0.4375 

11 

0.3750 

12 

0.3125 

13 

0.2500 

14 

0.1875 

15 

0.1250 

16 

0.0625 

17 thru 31 

1.0000 


If You Don’t Like the Defaults 

The contents of an entry in the color table can be modified with the procedure 
SET_COLOR_TABLE. The actual effect of a call to SET_COLOR_TABLE depends on the 
color model being used. The color model is selected using SET_COLOR_MODEL. Which 
brings us to color specification. 
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Models For Color Specification 

As mentioned above, SET_COLOR_TABLE is used to control the actual value of entries in the 
color table. It was also pointed out that the effect of SET_COLOR_TABLE is determined by the 
current color model, which is controlled by SET_COLOR_MODEL. It follows that it is neces¬ 
sary to understand SET_COLOR_MODEL before it is possible to understand 
SET_COLOR_TABLE. 

SET_COLOR_MODEL selects (if you haven’t already guessed) the color model to be used. 
There are two models available in DGL; the RGB (Red, Green, Blue) and the HSL (Hue, 
Saturation, Luminosity) models. We will discuss them in order of ascending complexity. 

The RGB Model (Red, Green, Blue) 

The RGB model can be thought of as mixing the output of three light sources (one each of Red, 
Green, and Blue). The parameters in the model specify the intensity of each of the light sources. 
The RGB model is selected by using a model selector of 1: 

SET-COLOR-MODEL (1)5 

Once the RGB color model has been selected, the parameters sent to SET_COLOR_TABLE 
represent the percentage of full intensity of the red, green, and blue light sources: 

SET_COLOR_TABLE (Tab 1eEntry » Red* Greent Blue) 5 
The following picture illustrates a physical model for the RGB system. 



RGB Color Model 
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Whenever the red, green, and blue parameters have the same value, the resulting color is a 
gray tone (i.e. it has no hue component). The RGB model is based on the additive primaries, 
the colors used for describing mixing light, as opposed to mixing pigments, which are subtrac¬ 
tive. It is a good system for interacting with color CRT displays, since it requires little conversion 
to translate it to a set of signals suitable for driving a color CRT. 

The HSL Model (Hue, Saturation, Luminosity) 

The HSL model is closer to the intuitive model of color used by artists, and is very effective for 
interactive color selection. It is similar in concept to the methods used by artists for mixing 
paints, where pure hues are selected, and then white and black are mixed to dilute the color 
and/or darken it. The three parameters represent hue (the pure color to be worked with), 
saturation (the ratio of the pure color mixed with white), and luminosity (the brightness-per-unit 
area.) To better understand the parameters, let’s build a model for the HSL system. 

If we start with a white light source we should be able to get any color we want by filtering it. (A 
perfect white light source contains equal parts of all possible colors.) 

The first step is to select the Hue to work with. This can be done with a color filter. In fact, if we 
take several color filters, and arrange them to form a disk, we could rotate the disk in front of the 
white light source and choose any of the colors on the filter wheel. Since the model we are 
working with is a model for understanding rather than one that we actually have to build, we 
can consider the wheel to consist of an arbitrarily large set of color filters, so that any rotational 
movement of the wheel will select a different color filter. Now we will provide a mechanism to 
drive the wheel which will position it angularly, based on a number we send to it, a number 
between 0 and 1 (inclusive). We will arrange the filters as a conventional color wheel (there are 
advantages to this, which are discussed under “Effective Use of Color,” later in this chapter). 
Since it is a wheel, it must meet itself somewhere, and Red is as good a place as any, so two 
parametric values (0 and 1) describe red. Such a color wheel would look something like this: 



A Color Wheel for the HSL Model 
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This arrangement is fine for producing highly saturated colors (bright, pure, intense colors), but 
there are other types of colors, and we need to be able to produce them. For a start, we can mix 
some white light (remember our white light source?) with the filtered light, to desaturate the 
color. Combining the filtered and unfiltered lights directly would produce 50% saturation, and 
would double the luminosity of the resultant color. We want to have variable control of the 
saturation, and, to keep the model simple, it would be better if the result of the saturation 
control produced a unit luminosity. If, instead of mixing the two light beams directly, we mix the 
outputs of two simple optical gates that are linked with a mechanical slider to control the 
proportions of the colored and filtered light, we can control of the saturation while maintaining 
a constant luminosity (intensity-per-unit-area). Once again, we will provide a mechanism which 
takes a number between 0 (no color - pure white) and 1 (fully saturated color) and positions the 
slider appropriately. The two pictures below show the model we have described, with a fully 
saturated red in the first one, and a 50% saturated red in the second one. 



Fully Saturated Red 
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50% Saturated Red 

Finally, we may wish to change the luminosity, or brightness of a color (for example, brown is a 
dark red). This can be accomplished by putting an iris (like the one found on a 35 mm camera) 
after the mixer that combines the output from the saturation slider. The same 0 through 1 
numerical control interface is used to control the iris, and thus the luminosity. The following 
three pictures show some combinations of the various controls: 



Fully Saturated, Fully Luminous red. 
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Color Graphics 



Fully Saturated, 50% Luminous Red. 



50% Saturated, 50% Luminous Red 
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To recap, the Hue parameter rotates a color wheel to select a “pure” color to use. This color is then 
mixed with white light. The ratio of the pure colored light to the white light is controlled by the 
Saturation slider. Finally, the output passes through the luminosity iris (think of it as a hole you can 
adjust the size of) that controls the brightness of the output. 

The HSL model is specified by a model selector of 2 in the SET_COLOR_MODEL statement: 
SET_C0L0R_M0DEL (2); 

A program called “COLOR” on the DGLPRG: or DOC: disc uses HSL model for interactive 
color selection. (“COLOR” only works correctly on the following: Model 236 Color Computer, 
HP 98543A, HP 98545A, HP98547A, HP98549A, HP98550A and HP98700A.) It pro¬ 
duces two arrays for use with the SET_COLOR_TABLE statement, one for INTENSITY and 
one for COLOR. The program is over 300 lines long, almost all of which is simply a human 
interface to the following code in the update routine: 

SET_C0L0R_TABLE (TableEntry» 

HueVal [Table En try]> 

SatVal[TableEntry]> 

LumVa 1[Tab1eEn t r y ]) » 


Which Model? 

Two models are provided by the DGL color system. If you are working with primaries only, or want 
gray scale output, the RGB model is great. If, on the other hand, you are trying to deal with pastels 
and shades, you are better off with a color model that is intuitive in nature, and that is where the 
HSL model shines. 

It is possible to get the best of both worlds by using the HSL model for the human interaction, then 
reading the color table to get the RGB color values. 

The “COLOR” program mentioned above does exactly that to calculate the correct cursor and text 
color to use when the user changes the background color. This is done by reading in the RGB color 
table values, calculating which corner of the color cube is farthest from the background color, 
setting the foreground pen and text displays to that color, and then writing the RGB values back 
into the color map. Even though the primary interaction is with the HSL model, the RGB model is 
used because it is more convenient to find distances between colors in it. 

type 

Colo rs = 

Modes= 

En tryRan$e= 

FunnyArray= 


const 

FunnyCha r = 


(Red>Yellow>Green>Cyan>Blue>MaSenta>White>BlacK)5 

(Hue fSat »Luw>Table tCopy1 >Cop'/2) 1 

-1..165 

array [Colors] of char? {array for alpha color) 


FunnyArray[chr(139) »ch r(137) > 
ch r (136) >chr( MO) » 
ch r(142) *ch r(143) > 
chr(lfll) >ch r( 138) ] 5 


{\ Array for > 
{ \ holdins the > 
{ / alpha-color > 
{/ controllers > 



5-10 Color Graphics 


uar 

T a b 1 e E n t r y : 

R e d B a c k > G r e e n B a c k > B1 u e B a c k : 
LabelColor: 

Backsum»01dBackSurn: 


Ent ryRansfe 5 
real ! 
char 5 
0 * *75 


if Table Ent ry = 0 then be Sin {Background color! 
set.color.Model(1)5 {RGB! 

i ns_c o 1 o r_t ab 1 e (0 >Re dBac k >G re enBack t B1 ueBac k ) I 
BackSuw:=05 { \ 

if RedBack<0.5 then BackSuw:=45 { \ 


/ 


if GreenBack<0«5 then BackSuw:=BacKSum+25 
if BlueBack<0.5 then BackSuw: =BackSuin+l 5 
if OldBackSuwOBackSuw then beSin {Color chansfe! 
case BackSuw of 

=FunnvChar[Black]5 
= FunrivCharCBlue] i 
= Funny Char[Green] 5 
=FunnyCharCCvan]5 
= F u n n > 

: F u n n v 
Funnv 
F unn v 


{Set RGB values! 
Calculate the ! 

backs round color ! 
in order to wake ! 
contrastinS text. ! 


LabelColor 
LabelColor 
LabelColor 
LabelColor 
LabelColor 
LabelColor 
LabelColor 
LabelColo r 


'CharCRedl5 
'CharCMaSental 
' C h a r [ Y e 11 o w 15 
'CharCWhitel5 


end? {case BacksSuw of! 

M e n u L i n e ? 

OldBackSuw:=BackSuw; 
set.colo r_ tabled »l-RedBack> 
1-GreenBack 
1-BlueBack) 

end! {if! 

s et_co1or_wo de1(2)5 
end; {if TableEntry=0! 


Translate the 
RGB backs round 
sum to a 
cowplewentarv 
text color. 


/ 


{print the 
{store for 
{ \ Make pen one 
{ > cowplewentar v 

{ / too. 

{ HSL1 


m e nu line! 
future comparisons! 

! 

! 


One point brought out by the preceding example is that the models can be mixed freely. There 
is nothing to prevent using the RGB model to set a gray background color and a black pen, and 
then using the HSL model to produce the rest of the palette. Use whatever is easiest for what 
you want to do. 


If you are interested in pursuing the color models, the RGB model is called a Color Cube and 
the HSL model is called the Color Cylinder. These models represent idealized color spaces and 
are discussed next. 
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Color Spaces 

If you ask broadcast engineers what the primary colors are, they will probably tell you “Red, 
green, and blue.” If you ask printers what the primary colors are, they will probably tell you 
“Cyan, magenta, and yellow.” If you ask physicists , they will probably smile and say “That’s 
not the right question.” Let’s see if we can get enough information about color systems to ask 
the right question. 

Primaries and Color Cubes 

The reason for the confusion is that there are two sets of color primaries. Red, green and blue 
are additive primaries. Cyan, magenta, and yellow are subtractive primaries. Each of these sets 
of primaries can be used to construct what is referred to as a color cube. These are called the 
RGB color cube and the CMY color cube. 

Each of the color cubes can be used to describe a color space. Color spaces are mathematical 
abstractions which are convenient for scientific descriptions of color. This is because the color 
spaces provide a coordinate system for describing colors. Once you have a coordinate system, 
you can talk about and manipulate colors mathematically. 

In addition to the color cubes, other color coordinate systems exist. While there are many, we 
will only look at HSL Color Space, because it is one of the available color models in DGL. First, 
the cubes. 
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The RGB Color Cube 

The RGB color cube describes an additive color system. In an additive color system, color is 
generated by mixing various colored light sources. (Color mixing is discussed in “Effective Use 
of Color,” below.) 

The origin (0,0,0) of the RGB color cube is black. Increasing values of each of the additive 
primaries (Red, Green, and Blue) move towards white (the opposite corner of the cube.) The 
maximum for all three colors is white (1,1,1). 

A diagonal of the cube connecting (0,0,0) and (1,1,1) represents gray shades, which are 
generated by incrementing all three color axes equally. 



The RGB Color Space 

NOTE: This photo is a multiple exposure of Model 236 Color Computer CRT. 
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The CMY Color Cube 

The CMY color cube represents a subtractive color system. In a subtractive color system, colors 
are created by subtracting colors out of a pure white (containing all colors equally) light source. 
This most often occurs when light is reflected off of surfaces containing, or coated with, pig¬ 
ments. This happens in printing and painting, among other operations. 

The origin (0,0,0) for the CMY color cube is white. This represents all the colors in a perfect 
white light source being reflected by a white (reflecting all colors) surface. Increasing values of 
each of the subtractive primaries (Cyan, Magenta, and Yellow) move towards black (the oppo¬ 
site corner of the cube.) The maximum for all three colors is black (1,1,1). 

A diagonal of the cube connecting (0,0,0) and (1,1,1) represents gray shades, which are 
generated by incrementing all three color axes equally. While the CMY color model is not 
supported by the DGL, it is important to understand when you get to color hard copy. 



CMY Color Space 

NOTE: This photo is a multiple exposure of Model 236 Color Computer CRT. 
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The HSL Color Cylinder 

The color cubes are very useful for working with physical systems that are based on color 
primaries. They are not always intuitive, though. 

The HSL color cylinder resides in a cylindrical coordinate system. A cylindrical coordinate 
system is one in which a polar coordinate system representing the X-Y plane is combined with a 
Z-axis from a rectangular coordinate system. 

• The coordinates are normalized (range from 0 through 1). 

• Hue (H) is the angular coordinate. 

• Saturation (S) is the radial coordinate. 

• Luminosity (L) is the altitude above the polar coordinate plane. 

The cylinder rests on a black plane (L = 0) and extends upward, with increasing altitude 
(Luminosity) representing increasing brightness. Whenever luminosity is at 0, the values of 
saturation and hue do not matter. 



HSL Color Cylinder 

NOTE: This photo is a multiple exposure of Model 236 Color Computer CRT. 

White is the center of the top of the cylinder (L = 1, S = 0).The center line of the cylinder (S = 0) is 
a line which connects the center of the black plane (L = 0, S = 0) with white (L = 1, S = 0) through a 
series of gray steps. (L from 0 to 1, S = 0). Whenever saturation is 0, the value of hue does not 
matter. The outer edge of the cylinder (S = 1) represents fully saturated color. 
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HSL Color Specification 

Using the above drawing (HSL Color Specification,) hue is the angular coordinate, saturation is 
the radius, and luminosity is the altitude of the desired color. 
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Reality Intrudes 

It would be fantastic if that were all you needed to understand in order to use the color 
capabilities in DGL. Unfortunately, “Reality rears its ugly head.” HP does not make a piece of 
hardware capable of supporting the system described above. HP color computers come close 
to the color modeling system described above, but only approximate it. 

However, now that the idealized color system has been described, we can tackle some real 
hardware that DGL supports. We will start with the simplest display device (a plotter) and work 
up to the most complex (the internal color-mapped frame buffer in a color computer). Along 
the way, some of the hardware dependencies that make each device unique will be brought 
out. 


Plotters 

Numerous plotters are supported by DGL. All plotters support color as an attribute of graphics 
primitives to the extent it is possible with the number of pens available on the plotter. The SET_ 
COLOR and SET_PGN_COLOR procedures select the pen used used to draw the primitives. 
Using a color selector of 0 will usually put whatever pen is in use away. Calls to SET-COLOR- 
TABLE are Ignored when a plotter is specified as the display device. Plotters do not support the 
color modeling system. 
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Frame Buffers 

The internal displays on HP color computers all have bit-mapped graphics, as does the HP 
98627A. An area in memory called a frame buffer stores a binary description of each pixel 
location on the display. 

Frame Buffer Depth 

The number of bits available for describing each pixel is called depth of the frame buffer. On all 
displays except the HP98627A color output interface, and the color display cards, a single bit 
is used to describe each pixel location. (On displays HP 98542A, HP 98544A, HP 98548A, 
and computer Model 237A, this bit is the LSB of a byte allocated to the pixel.) A single bit 
allows each pixel to be on or off. This can be thought of as representing one of two colors 
(black or white, since the CRT is monochromatic). A one-bit frame buffer and the display it 
produces would look something like this: 
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Frame Buffer Display 


One-bit Frame Buffer 
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The 98627A has a three-bit frame buffer, allowing each pixel to be set to one of 8 colors (Black, 
Red, Green, Blue, Cyan, Magenta, Yellow, and White). Instead of storing ones and zeros (like a 
one-bit frame buffer), a number between 0 and 7 can be stored. 
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Frame Buffer 


Disp1 ay 


Three-Bit Frame Buffer 


The color computers have a four-, six-, or eight-bit frame buffer. A four-bit frame buffer allows 
each pixel location to contain between 0 and 15 colors; where a six-bit frame buffer provides 
for 0 to 63 colors; and an eight-bit frame buffer 0 to 255 (inclusive). Thus the color computers 
can set a pixel to any of 2 ^ different colors (where n is the number of planes). The presence 
of a color map in a color computer complicates this somewhat, by giving you control over the 
colors that each of the possible entries in a frame buffer can actually represent (this is a palette 
of 2^ n ) colors out of a gamut of some larger number of colors - see the color map description, 
below). For now, just think of color computers as having 2 ^ colors that the user can define. 


The following discussion addresses the frame buffers for these displays: 

■ HP 98542A low-resolution monochromatic display 

■ HP 98543A high-resolution monochromatic display 

■ HP 98544A low-resolution color display 

■ HP 98545A high-resolution color display 

■ HP 98547A high-resolution color display 

■ HP 98548A high-resolution monochromatic display 

■ HP 98549A high-resolution color display 

■ HP 98550A high-resolution color display 

■ HP 98700A high-resolution color display 

■ HP 9000 362/382 VGA display 

■ HP 9000 382 medium-resolution color display 

■ HP 9000 382 high-resolution display 

For all of the above displays, each frame buffer pixel is addressed as one byte of memory. The 
monochromatic displays use only the least significant bit of each byte, and the color displays 
use the least significant four, six, or eight bits of each byte. 
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The high-resolution displays use square pixels to display the image; the Y:X aspect ratio of the 
pixels is 1:1. This results in a 1024 x 768-pixel displayable image. The low-resolution displays 
use non-square pixels to display the image; the Y:X aspect ratio is 2:l-the pixels are twice as 
high as they are wide. The resultant displayable resolution is 1024 x 400. For the low-resolution 
displays, one pixel in the frame buffer is not the same as one DGL-accessable pixel. This is 
because DGL “pairs” the frame buffer pixels to give DGL pixels. 

The following diagram illustrates DGL’s non-square pixels. As you can see, the “image” in the 
frame buffer, which uses frame-buffer-pixel pairs, is too short, top to bottom. In the display, 
though, the pixels are stretched vertically into non-square entities, yielding the desired shape of 
the object drawn. 



| indicates pixel on 




1 

1 

1 

w 






□ 


indicates pixel off 


In graphics, with the low-resolution displays, DGL “doubles up” the even/odd pairs of rectanglar 
pixels to simulate square pixels at a displayable resolution of 512 x 400. Alpha does not double 
up the display pixels; it uses all horizontal pixels. This results in an alpha resolution of 1024 
x 400, or 26 lines of 80 characters, with a little extra space on the top, left, and right of the 
screen. Alpha can produce pixel pairs in which one of the pixels has a different value than the 
other. DGL will always produce pixel pairs in which the pixels have the same value. 


Faking More Colors From a Frame Buffer 

If you have a one-bit frame buffer and need more colors, you can go up to a three- or four-bit 
frame buffer to solve the problem. If you already have a four-bit frame buffer and need more 
colors, the problem is more difficult to solve. The same solution that allows you to add more 
colors to the four-bit frame buffer also allows you to add more colors to a three-bit frame buffer, 
or even to a one bit frame buffer. (O.K., it’s actually shades of gray in a one-bit frame buffer.) 
The technique is called dithering, and is supported on all Series 200/300 frame buffers. 



5-20 Color Graphics 


Dithering 

In early color systems which did not provide control of the intensity of individual pixels, 
dithering became a very popular method of increasing the number of shades available to the 
machine. In dithering, halftoning is used to create the impression of a larger palette than the 
system hardware actually supports. This is done by creating patterns of dots of the available 
colors which the eye will (hopefully) combine into a perceived color different from the colors 
used to produce the patterns. The effectiveness of this technique depends on the distance from 
the display, the patterns involved, and the eye of the beholder. For example, if you want to 
produce a half intensity red, you can turn on half the dots in an area, and it will look half-bright. 
The 50% pattern fools the eye quite effectively. 



Half Tone Color Selection 


Thus, by reducing the effective resolution of the system, it is possible to provide a large number 
of shades of color. On color computers, this is done by imposing a grid of 4x4 squares on the 
CRT, that is, each of the squares is 4 pixels square. With a one-bit frame buffer, it is possible 
to get 17 shades of gray in the square (all pixels off, and 1 thru 16 pixels on). On a three-bit 
frame buffer (the HP 98627) there are three colors available, providing 4913 (17 3 ) shades. For 
a four-bit frame buffer there would be 83521 (17 4 ) shades. While for a six-bit frame buffer 
there are 24137569 shades, and an eight-bit buffer has 6975757441 shades (if the colors 
represented by the frame buffer were fixed). On color computers, however, it is possible to 
alter the colors represented by the frame buffer value, so the number of colors representable is 
variable - it could be larger or smaller than 83521 (which is more than the number of dithering 
squares available on the display, anyway) depending on the contents of the color map. 
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Creating A Dithered Color 

The following discussion gets a little abstract, and it is not absolutely necessary to understand 
how dithering works to use it. It is interesting information, and can be useful knowledge if 
dithered areas don’t do what you expect. 

A color vector is a directed line connecting two points in RGB color space. The dithering 
process tries to match a target vector by constructing a solution vector from colors available to 
the frame buffer. The actual dithered color to be produced will be 16 times the target vector, 
since 16 points in the dither area will be combined to create it. 

The color matching process requires sixteen steps. First, the target vector is compared to the 
vectors produced by each color in the color map. The one which is closest to the target vector is 
selected as the first component of the solution vector. The distance between the points in the 
RGB color space is used to determine how far apart the vectors are. 

The following process is then repeated 15 times: 

1. The original target vector is added to the preceding target vector to produce a new target 
vector. 

2. A trial solution vector is created for each color in the color map by adding the vector for 
the color map entry to the previous solution vector. The trial solution vector that is closest 
to the target vector is selected as the new solution vector. 

At this point, the target vector is 16 times the original target vector, and the solution vector 
consists of a summation of color vectors available to the frame buffer that produce, at each 
iteration, the vector closest to the target vector. 

If all this has left your head spinning, let’s take a look at a simplified system to see how the 
process works. Our simplified system will be a two color system (to keep it a two dimensional 
problem) with a 2x2 dither cell (which means we only have to look at four steps in the total 
process). 

We will use green and red (let’s not get “tangled up in blues”) for the two axes. There will be 
three colors available to the frame buffer - a unit green, a unit red, and a combination of a unit 
red and a unit green. The vectors each of these colors produce is drawn at the top of the “Color 
Vector Matching” Diagram, shown below. At each step in the process, the target vector is 
labeled “T” and the solution vector is labeled “S.” In addition, the test vectors that are not 
used are shown, with no labels on the endpoints. 
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Color Vector Matching 

In actuality, the entire set of colors available to the frame buffer is not necessarily used for 
creating a color. Before the color matching process is started, the colors available to the frame 
buffer are sorted into two groups; those within the target cube, and those outside the target 
cube. The target cube is the cube formed by using the origin of the RGB color space and a point 
representing 16 times the target vector as diagonal corners to form a cube. Going back to our 
two dimensional model, we will construct a target square for the system. For a vector near one 
of the axes, the unit vector on the other axes will be excluded from the solution set, since it lies 
outside the target square. 


Rvai1ab1e 
Color Vectors 







Two Dimensional Target Square 
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Once the colors have been selected for the solution vector, the colors are sorted by luminosity 
and filled into the following precedence matrix (the most luminous color is filled into the lowest 
numbered pixel): 
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The dither precedence matrix is actually tied to pixel locations on the CRT. The matrix is 
repeated across the CRT and from the top to the bottom of the CRT (just divide the number of 
pixels on each axis by 4 to get the number of repeats). Areas to be filled are mapped against 
the fixed dithering pattern. All dither cells completely within an outline to be filled are turned 
on according to the precedence pattern. Cells which are only partially within the border are 
only partially enabled. If the area fill pattern calls for a pixel outside the boundary to be set, it 
will not be. 

There are problems with dithering: 

• The dithered colors are not necessarily accurate representations of the color specified. 
Looking at the “Color Vector Matching” Diagram shown above, the solution vector does 
not actually match the target vector, it just comes near it. This is highly dependent on the 
colors available to the frame buffer. A 4-by-4 dither cell with one full intensity green pixel 
does not look the same as the same cell filled with 1/15 green. 

• The dithered color selection tends to produce textures. In some cases, the textures over¬ 
whelm the shade produced. 

• The dithered colors are not stable if the color map is altered on a color computer. (This is 
discussed in more detail under “Color Maps,” below.) 

• The dithering operation produces anomalies when the area to be filled is thin. If it is less 
than four pixels wide or high, it cannot contain the entire dither cell and the results can be 
surprising for colors which turn on small portions of the cell. 
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If You Need More Colors 

If you have an application that requires more colors than are available to your frame buffer, the first 
thing to do is see if you can redefine it to use the colors available to the frame buffer. In many cases 
this is possible, and the higher quality of the frame buffer palette is worth a little checking to see if 
you can use it. 

If you have to use dithering, here are some hints for getting the best results: 

• Check the colors to see if you are going to get objectionable texturing. Sometimes relative¬ 
ly minor shifts in color definition can produce significant differences in the patterns used in 
dithering. 

• Remember - you can’t draw lines with dithered colors. DGL will automatically use the 
closest available color from the frame buffer. 

• If you are on a color computer, make sure your color palette is correctly set up for 
dithering. 

On all frame buffers other than the color computers, all the color table entries are potential 
dithered colors. On a color computer, however, only the upper 16 entries of the color table 
are dithered colors. The lower half of the color table maps directly to the hardware color map. 
The color map is one of the most powerful graphic tools yet invented. It is described below, 
under “Series 200/300 Color Graphics System.” 

Frame Buffer Contents 

Now that you understand frame buffers and dithering, it’s possible to describe what is actually 
found in a frame buffer. At any given time, the values written to the frame buffer fall into four 
categories: 

• Background Value - Whenever CLEAR_DISPLAY is executed, all the pixel locations in the 
frame buffer are set to the current background color. The background color is described by 
entry 0 in the color table. 

• Line Value - The SET_COLOR statement is used to determine the value written to the frame 
buffer for all lines drawn. This includes all lines (including characters created by GTEXT) and 
outlines (for polygons with the edge parameter true in the polygon style table). 

• Polygon Interiors - The SET_PGN_COLOR statement is used to specify the value written to 
the frame buffer for filling areas (for polygons with the fill attribute true in the polygon style 
table). 

• Dithered Colors - when an application uses more colors than the frame buffer can support 
directly (see “Frame Buffer Depth,” below), dithering is used to create as close an approxima¬ 
tion of the color as can be done by mixing colors available to the frame buffer. Dithered colors 
can only be used for the background and for polygon interiors, not for lines. 
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Series 200/300 Color Graphics System 

The biggest benefit of the color computer is that it makes experimenting with color so easy. 
With a bit-mapped frame buffer and a color map, it is easy to test out ideas before you use 
them. It is also possible to use the color map for simple animation effects and some just plain 
impressive images. 

It is possible to use the color computer with the default color map. The color used will 
depend directly on the value in the frame buffer. This is fine if the work you are doing can 
be accomplished using the 16 (or 64, or 256) colors supplied as the system defaults. This is 
often not the case, and this overlooks one of the most powerful features of the color computer 
— the color map. 

Color Map (Model 236 Color Computer) 

The color-mapped system uses the value in the frame buffer as an index into a color map. The 
color map contains a much larger description of the color to be used and, just as importantly, 
the color description used is indirect. Thus, the value in the frame buffer does not say “use color 
12”, but rather “use the color described by register number 12”. 


Frame Buffer Red Green Blue 



Color Map 


The CRT refresh circuitry reads the value from the pixel location in the frame buffer, uses it to 
look up the color value in the color map, and displays that color at that pixel location on the 
CRT. Thus, it is possible to draw a picture with a given set of colors in the color map (a set of 
colors is called a palette) and then change palettes and produce a new picture by redefining the 
colors, rather than having to redraw the picture. (The binary numbers in the color map are 
created by the system. The user deals with normalized values, as described under “Color 
Specification.”) 

Other color display models are similar in concept, but differ in detail. 
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True User Definable Color 

The colors available are true user definable colors. The color can be changed on a pixel-by¬ 
pixel basis, so there are no restrictions on how the colors can be used (as there are with dithered 
shades, which can only be used for filling polygons). There are also no problems with texturing, 
as the color is not produced by mixing dot patterns. 

Retroactive Color Changes 

Another advantage of the color map colors comes from the indirect nature of the color map. 
Since the frame buffer contents only point to locations in the color map, it is possible to change 
the contents of the color map after an image has been created in the frame buffer, allowing 
“fine tuning” of the image after it has been created. 

If You Need More Colors 

If you have an application that requires more colors than the number that are available, the first 
thing to do is see if you can redefine the application to use the available colors. In many cases 
this is possible, and the higher quality of the color mapped palette is worth a little checking to 
see if you can use it. 

The color computer provides dithering for applications that require more shades than are 
available at any single time with the color map. The upper part of the color table (last real 
entry plus one, through last real entry plus sixteen) provide access to dithered colors, although 
they will fill with a single pen if the color requested exists in the current color map. 

If you absolutely have to get at a larger palette, then load a palette optimized for dithering (optimiz¬ 
ing for dithering is described below) and stick with dithering. Don’t try to mix color map redefini¬ 
tion and dithering - it will probably cause you a lot of grief. Especially, do not try to do interactive 
redefinition of the color map in a system that is also using dithering. 
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Optimizing For Dithering 

The actual color palette you require determines the optimum color map values. Below are 
some plots of color matching on the simplified color system introduced under the discussion of 
dithering. Each plot is trying to match the same target vector, but using a different palette. The 
effect of various color maps on the distance between the target and solution vectors is striking. 






Color Map Effect on Color Vector Matching 
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It’s obvious from the drawing above that the larger the color map, the closer the match to the 
target color, right? Well, it’s obvious from that drawing, but let’s take a look at a slightly different 
color to match, and see what happens. 






Color Map Effect on Color Vector Matching - Part 2 


The point is, that the quality of color matching depends on both the contents of the color map 
and the color to be matched. 
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Resolution and Color Models 

The resolution available with the two color models depends on the hardware being used to 
generate the color. Resolution on devices that use dithering is complicated by the variation in 
quality of the colors produced by dithering. Resolution of the color map is easier to deal with, so 
let’s see what’s available. 

RGB Resolution 

The resolution of the RGB model is limited by the digital to analog converters in the color 
computer graphics hardware. The converters allow 2^ states to exist for each of the CRT 
electron guns, so the resolution of each of the RGB parameters is 1/2^ — 1, from 0 thru 1. 
In fact, since the SET_COLOR_TABLE statement accepts real arguments, you can express the 
values as fractions, and let the computer convert to decimals. The following call would set the 
background to about 50% gray. 

SET_C0L0R_TABLE (0, 7/15, 7/15, 7/15) 

HSL Resolution 

The resolution of the HSL model is not specified anywhere. This is because the resolution for the 
various parameters is not a fixed value. The resolution for any parameter of the HSL system is 
dependent on all three of the parameters. The resolution is not only changed by the other two 
parameters, but also by the magnitude of the parameter you are varying. 
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Writing Modes and Color 

Since HP color computer frame buffer devices are bit mapped, it makes sense that various 
logical combinations of the bits in the frame buffer with the bits being added by a drawing 
operation should be possible. Since this is a highly device dependent operation, the various 
drawing modes are specified with calls to OUTPUT_ESC. Four drawing modes are available: 

• Dominant 

• Non-Dominant 

• Erase 

• Complement 

Three of these drawing modes have already been introduced (all but non-dominant) in Chapter 2. 
The meaning of the modes is slightly different for a color system than for monochromatic systems. 
The actual meaning of each of the modes is discussed below, but first, a slightly modified version of 
the DrawingMode procedure presented in Chapter 2 is listed below. The non-dominant drawing 
mode has been added to it. 

$pa$e$ {***#************************#*********************************###*#*} 


procedure DrawintfMode(Mode: DrawintfModeType ) 5 

{ ----- > 

{ This procedure selects drawing inodes for a color-mapped CRT. > 

---------> 

const 


SetDrawinSMode= 10525 {mnemonic better than masic number} 

uar 


D rawMode : 

a r ray [ 1 ♦ . 11 

of 

integer 

5 

{ \ 

This is all stuff that 

} 

R a r r a y : 

array C1 . . 13 

of 

real! 



{ > 

is needed by the 

} 

Error: 

integer? 





{ / 

"outPUt_esc" procedure. 

} 

b e S i n 





{procedure " 

DrawinSMode"} 


case Mode of 



{ 

\ 



} 


Dominant: 

D rawMode C 13 : 

= 0 5 

{ 


\ 

Convert DrawinsfMode enumerated } 


N o n D o min ant: 

D rawMode C 1 3: 

= 15 

{ 


\ 

type into 

the appropriate } 


Erase : 

D rawMo d e C1 3: 

= 25 

{ 


/ 

value for 

QUTPUT.ESC procedure. } 


C o m p 1 e m e n t : 

DrawMode [ 1 3: 

= 35 

{ 


/ 


} 


end! {case} 



{ 

/ 



} 



output.esc(Se tD raw in SMode >1>0 >D rawMode >Ra r ray .Er ro r)5 {set it > 

if ErrorOO then w rite In ( 'Erro r ' >Error:0>' in procedure "DrawingMode". ') 5 
end 5 {procedure "D rawin slMode" > 

The global TYPE declaration for DrawinsModeType must also be changed: 

D rawin SModeT'/pe = (Dominant. Erase. Complement. NonDom i n ant) 5 

“Draw” has been changed to “Dominant” to make it consistent with references to the non¬ 
dominant mode. 
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Dominant Writing 

Dominant writing is the easiest to understand. When DGL has a new value to write to a location in 
the frame buffer, whatever is already in the frame buffer is overwritten, and thus lost. The system 
wakes up in the dominant mode. 

Non-Dominant Writing 

All the techniques described up until now have dealt with dominant writing to the frame buffer. In 
the dominant writing mode, the color selector is written directly to the color map, and overwrites 
whatever is currently in the frame buffer. In non-dominant writing, a bit-by-bit logical-or is per¬ 
formed on the contents of the frame buffer and the table entry selector value being written to the 
frame buffer. Thus, if color selector 1 is written to a buffer location that has already been written to 
with color selector 6, the buffer location will contain 7, but writing color selector 2 to a buffer 
location that has already been written to with color selector 6 will not change the contents. 

Erasing 

Erasing is a fairly simple concept in frame buffers that are a single bit deep. You just restore the 
background by setting the portion of the frame buffer you wish to erase to 0. The concept is a 
little more complex in frame buffers with more depth (such as a color computer.) At the simplest 
level, you can simply set the contents of the frame buffer to the background color, using a call to 
CLEAR_DISPLAY. 

It is also valuable to erase a single line. This can be done by setting the drawing mode to erase, and 
then re-drawing the line you wish to erase. In the erase mode, the erasure is done non-dominantly. 
This means that the bits which have a 1 value in the current color table entry selector are cleared to 
0 in the frame buffer entries that are modified by the line drawn in the erase mode. For example, if a 
table entry selector of 5 is used to erase the a line written with a table entry of 5, the frame buffer 
entries are returned to 0. If, however, the same line crosses a frame buffer entry of 7, the result is a 
value of 2 (only the bits set in 5 are cleared to 0 by the operation). 

The only method that insures erasing a line is to select the dominant writing mode and draw over 
the line in the background color. This is done with a table entry selector of 0 (for the frame buffer 
background) or a table entry selector equal to a “local background,” if the line you are trying to 
erase is drawn across an area filled with a color other than the background color. 

Complementary Writing 

The complementary drawing mode is provided for operations (such as making your own cursor) 
that need to put an image on the screen that is always visible, but that can also be taken 
off the screen without damaging the background. On a color computer, the concept of a 
complementary pen is extended to deal with the bit values (n) in the color map. In the non¬ 
dominant mode, the bit pattern represented by the table entry selector will be exclusively-ORed 
with the contents of the frame buffer. 

The complement occurs only for the bits which are one in the table entry selector. Thus an entry 
selector of — 6 would complement bits 1 and 2 of the frame buffer. If a 1 exists in a frame buffer 
location and a line is drawn over it with entry selector 6, a 7 will now be in the location. Writing 
over the pixel with the same table entry selector will return it to a 1. 
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Making Sure Echoes Are Visible 

It is important to understand that the complementing is of the frame buffer, not the color map. 
You are responsible for making sure that the complemented frame buffer values are visible 
against one another. Be careful of placing the same color in two locations on the color map that 
are complements of one another. If you pick one of them as an echo color and then try to use 
the echo over an area filled with the other value, you will not be able to see it. 

Drawing Modes and the Frame Buffer 

Let’s try to make things a little more concrete. We will look at a 9 x 9 section of a frame buffer, 
and draw some lines in the various modes, with different table entry selectors. Starting in the 
dominant mode, if we draw a cross with a table entry selector of 5, and then put a square with a 
table entry selector of 7 down on top of it, the following frame buffer results: 
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Dominant Writing to the Frame Buffer 




Color Graphics 5-33 


If we then set the erase drawing mode and use a table entry selector of 5 to try to erase the 
horizontal element of the cross, we end up with two pixels of the horizontal element not erased, 
since the square had changed those locations to a 7, and the erase mode only erases the bits 
that are set to one in the table entry selector. The frame buffer ends up looking like this: 
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Erase Writing to the Frame Buffer 


If you want to set a line to the background color, do it in dominant mode, with a table entry 
selector (in SET_COLOR) of 0. 
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Now, clear the frame buffer, and let’s take a look at non-dominant writing. Non-dominant 
writing ORs the contents of the frame buffer with the table entry selector. Let’s put the cross and 
the square in the frame buffer, again, but this time we will use non-dominant mode, and a pen 
selector of 2 for the square. The cross will be written first, and then the square. The following 
frame buffer results: 
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Non-Dominant Writing to the Frame Buffer 

Now let’s try some complementary writing to the frame buffer we got from the non-dominant 
writing example, above. We will draw over the horizontal line, using a color table entry selector 
of 7. The first time, we get the following: 
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Complementary Writing to the Frame Buffer 
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If we do it again, we end up with this: 
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More Complementary Writing to the Frame Buffer 

Notice that the first line is highly visible (assuming the color map contents do not produce the 
same colors for several entries in the frame buffer), but that the frame buffer is restored to it’s 
original values after the second operation. This will not be true if a line is drawn through the 
area before the complementary line is “undrawn.” Always undraw complementary lines before 
you try to add things to the frame buffer. 

Special Considerations 

The drawing modes mentioned above are only available on frame buffers. There are some 
special interactions with various primitives in the graphics system that need to be taken into 
consideration. 

Text 

When text is written in the complementary mode, gaps will be produced in the characters, 
wherever the character intersects itself. This includes crossovers and endpoints of lines that 
overlap. Readability of the text can be heavily impacted by this. Make sure you want the result 
before putting GTEXT calls while the drawing mode is complementary. 

Polygons 

Device independent polygons (INT_POLYGON and POLYGON) are written to the frame 
buffer using the current drawing mode. Device dependent polygons (INT_POLYGON_DD and 
POLYGON_DEV_DEP) ignore the drawing mode. Make sure you use the correct one if you 
want the drawing mode to work. 
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Effective Use of Color 

At the beginning of this chapter, it was pointed out that color is a very powerful tool, and that it 
is also easy to misuse. While it is beyond the scope of this book to provide an exhaustive guide 
to color use, a few comments can be made on using color effectively. 

This section will deal with seeing color first, to lay the groundwork. This is followed by a 
discussion on designing effective display images, since effective color use is almost impossible if 
the image is fundamentally unsound. 

After laying the groundwork, effective color use is discussed, from both the objective and 
subjective standpoints. 

Seeing Color 

The human eye responds to wavelengths of electromagnetic radiation from about 400 nm to 
about 700 nm (4000 to 7000 angstrom). We call this visible light. Visible light ranges from violet 
(400 nm) to red (700 nm). If all the frequencies of visible light are approximately equally mixed, 
the result is called white light. 

The eye’s ability to discriminate color is reduced as the light level is reduced. This means that 
the variety of colors perceivable at low light levels is smaller than the variety at higher light 
levels. 

The eye is most sensitive to colors in the middle of the visible spectrum, a yellow-green color. 
The eye is least sensitive to the shorter wavelengths, which are at the blue end of the spectrum. 
Sensitivity to red is between that of yellow-green and blue. Two things seem to be associated 
with the sensitivity of the eye to various colors: 

• The eye can distinguish the widest range of colors in the yellow-green region, and the 
smallest variety of colors in the blue region. 

• The eye is most sensitive to detail in the yellow-green region. 

Why and how any of the above works is explained by color theorists. There are a large number 
of theories of color, and all of them work for explaining the specific phenomena the researchers 
were studying when they developed the theory, but none of them seem to be able to explain it 
all. The list of references at the end of this chapter include several on how vision works. 

It’s All Subjective, Anyway 

One of the reasons that there are so many color theories is that no two people seem to perceive 
color the same way. In fact, the same person will many times perceive color differently at 
different times. In addition to the physiological and psychological variables in color perception, 
many environmental factors are important. Ambient lighting and surrounding color affect the 
perceived color tremendously. 

At this point, it will be well worth your time to compile and execute the program “COLOR”, 
from the “DGLPRG:” or “DOC:” disc. Try setting the background color to each of the pen 
colors, and see how different the foreground colors look against the different colors. In some 
cases, the lines even look slightly different from the filled rectangles of the same color. It turns 
out that the size of a color sample affects how it is interpreted, too. 
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The subjectivity of color, and the importance of background color in interpreting colors is the 
whole reason the program “COLOR” is provided. The color selector program lets you select 
the background color and provides both filled areas and lines due to the effect of the back¬ 
ground color and the size of the color sample on the perception of color. The only way to insure 
a set of colors works well together is to try it and see. 

Mixing Colors 

If two distinct audio tones are played simultaneously, you will hear both of them. If the same 
area is illuminated by two or more different colors of light, you will not perceive the original 
colors of light, but rather a single color, and it will be not be one of the original colors. What you 
will perceive is called the dominant wavelength. 

The CRT uses three different colored phosphors (Red, Green, and Blue) and mixes various 
intensities of the resulting lights to produce one of 4096 colors at any point on the CRT. What 
you actually see is the resulting dominant wavelength. This is an additive color system. 

Mixing with pigments is a little different. Pigments in inks and paints absorb light. The idea with 
pigments is to subtract all but the color you want out of a white light source. This is a subtractive 
color system, and the primary colors are cyan, magenta, and yellow. 

The different mechanisms for mixing additive and subtractive colors make it difficult to repro¬ 
duce images created with additive colors (like a CRT) in a subtractive medium (like a plotted or 
printed page.) Photographing the CRT is the best method currently available for color hard 
copy. This problem is discussed in more depth at the end of this chapter under “Color Hard 
Copy.” 

Designing Displays 

While the design of displays is not really a color topic, a few words about it are in order before 
we get into the effective use of color. If the design of an image is fundamentally unsound, all the 
good color usage in the world is not going to help it. 

Whenever you put an image on a CRT, you have created a graphic design. The design will 
either be a good one or a bad one, and if you know this, you have automatically increased your 
chances of creating a good design. If you are going to be creating a lot of displays, either in a lot 
of programs or in a single large program, you need a graphic designer. Many people have a 
natural talent for graphics - an ability to look at an image and tell whether it is graphically sound 
or not. If you don’t have that talent (or feel you could use some help) there are two courses of 
action that might be productive for you; you can hire a graphic designer or become one. 
Renting one is expensive and becoming one is time-consuming, but if you are trying to com¬ 
municate with users, you have to understand graphic design. While getting a degree in graphic 
arts may be impractical for some programmers, a course or two in the field will prove very 
useful if you do very much programming. 

While this book can’t turn you into a graphic designer, a few simple hints may help you on your 
next program. 

The most important thing in communicating with people is to keep it simple. Don’t try to 
communicate the total sum of human knowledge in a single image. It is much more effective to 
have several screens of information that a user can call up as required, than a single screen so 
complicated that the user can’t find what he wants on it. 
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Try to encode everything redundantly, in case one of the encoding methods fails. For example, if 
you color code information, use positional coding (the location of the information tells something 
about the nature of the information) too. Remember, the person reading the screen is probably 
not the person who wrote the program, and even if you are writing the program for yourself, 
you may forget how it works by the next time you try to use it. 

Another important thing to remember is to be consistent. Always try to place the same type of 
information in the same area of the CRT and use the same encoding methods for similar 
messages. Don’t using flashing to encode important information on one display and then use 
inverse video for the same thing seven displays into the program. 

Objective Color Use 

In spite of the subjectivity of color, there are some fairly objective things that you should know 
about color. Some of the things that can be done with color don’t depend heavily on subjective 
interpretation. 

Color Blindness 

A fact of life that it is dangerous to ignore is that some people are color-blind. The most 
common form of color blindness is red-green color blindness (the inability to distinguish red and 
green). Avoid encoding information using red-green discrimination, or these people will have 
difficulty using the system. 

Subjective Color Use 

Choosing appropriate colors for a program to use can be tricky, and constitutes a significant 
part of the job of a good graphic designer. In the final analysis, it is a largely a matter of trying 
combinations until you come up with a set of colors that look good together. If your application 
is complex, it will be well worth your while to consult with a graphic designer about the color 
scheme and layout of information displays for your program. There are, however, a few fairly 
fundamental things to remember in designing your programs. 

Choosing Colors 

First, and probably most important, is to use color sparingly. Color always has a communication 
value and using it when it carries no specific information adds noise to the communication. 

Use some method for selecting the colors - one of the best is a color wheel, similar to the one shown 
in the section on the HSL color model. 

• Try varying the luminosity or saturation of a color and its complement 
color wheel). 

• Try color triplets (three equally-spaced colors) and other small sets 
spaced around the color wheel. 

• Pastels (less than fully-saturated colors) tend not to clash. 

Give careful attention to your background color. Remember that a filled area can become the 
background color for a portion of the image on the CRT. 

• If you are using a small number of colors, use the complement of one of them for the 
background. 

• If you are using a large number of colors, use a gray background. 


(opposite it on the 
of colors equally- 
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If two colors are not harmonious, a thin black border between them can help. 

Use subtle changes (such as varying the saturation or luminosity of a hue) for differentiating 
subtly different messages and major changes (such as large changes in the hue of saturated 
colors) to convey major differences. 

Most of all, think and experiment. The final criteria is “Does this display communicate the 
message?”. 

Psychological Color Temperature 

Temperatures ranging from cool to hot are associated with colors ranging from blue to red (ice 
blue - fire red). This is actually the opposite of physical reality, where the higher the tempera¬ 
ture, the shorter the wavelength (blue is a black body radiation of about 7600° K while red is 
about 3200° K) but this is what people perceive as the relation between temperature and color. 
This is probably because people very seldom deal with the high temperatures and associate the 
blues with non-temperature related natural phenomena (oceans and ice). If you are trying to 
portray temperature, electrical field strength, stress, or some other continuous physical system, 
using the psychological color temperature can serve as a useful starting point for color coding 
the values. 

Cultural Conventions 

When trying to use color for communicating, cultural conventions are useful. Red is widely 
associated with danger in most western cultures, giving extra emphasis to a flashing red indica¬ 
tor. By the same token, a flashing green indicator would be less effective for communicating an 
out of range value in a system. In any specific application, it is important to understand the color 
associations that are common for the group using the application. 
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Reproducing Color Graphics 

Color Gamuts 

The range of colors a physical system can represent is called its color gamut. Color gamuts are 
important when you want to convert between different physical systems, because the source 
system may be able to produce colors the destination system cannot reproduce. An exhaustive 
treatment of color gamuts is beyond the scope of this book. However, here are some rules of 
thumb: 

• The color gamuts for CRTs and photographic film are not the same, but are fairly close. If 
you are lucky, you can photograph the CRT and catch it on film. It may take more than 
one exposure, so be careful and bracket everything with several exposures. 

• The color gamut for printing is significantly smaller than that of either photographic film or 
of a CRT. The fact that you have a picture of a CRT does not mean you can hand it to a 
printer and get a faithful reproduction of it. 

• The color gamut of a plotter is much smaller than that of a CRT. You have to create images 
with the limitations of a plotter in mind if you intend to reproduce them on a plotter (see 
“Plotting and the CRT,” below.) 

The different color gamuts available are not a problem unless you forget the differences and try 
to act like all physical systems have the same gamut. Think ahead if you have to reproduce 
images - it will save a lot a trouble. 

Color Hard Copy 

Color hard copy represents a translation between color systems, and many of the problems in color 
hard copy arise from the fact that the color gamuts available to the CRT and the hard copy device 
are different. 

There are two basic ways to get a color hard copy of what is displayed on a color computer: 

• Take a picture of the CRT. 

• Re-run the program that generated the image with an external plotter selected as the 
display device. 

The first method is the easiest and can capture (usually) whatever is on the CRT, regardless of 
what colors are used (see “Color Gamuts,” above.) The second requires setting up the color 
map to match the pens in a plotter, and is not as likely to capture what you see on the screen. 
Both methods are discussed below. 
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Photographing the CRT 

Photography is an art, not a science. Capturing images off a CRT is relatively straightforward, 
but sometimes unpredictable due to the different color gamuts available for film and the CRT. 
The following guidelines will provide a starting point. If your images are not “typical” (whatever 
that means) you may have to go back and re-photograph some of them. Many of the CRT 
images in this book were captured using these guidelines. 

• Use ISO 64 Color film. (Most of the color photos in this book were taken on Kodak 
Ektachrome 64.) 

• Set up your equipment in a room that can be darkened. It will have to be darkened for the 
one-second exposure. 

• Use a telephoto lens (the longer the better). This minimizes the effects of the curvature of 
the CRT. 

• Use a tripod. 

• Darken the room and take a one-second exposure. 

• Bracket the aperture around f5.6. (One stop above and below.) 

Plotting and the CRT 

There are two basic reasons the CRT is hard to capture on a plotter. 

• The CRT is an additive color device and a plotter is a subtractive color device. 

• The color gamut of the CRT is much larger than that of the plotter. 

The conversion from additive to subtractive colors is not a huge problem if the plot is a simple 
line drawing with few intersections and area fills. If the plot is complex, especially with lots of 
intersections and overlapping filled areas, the plot is much less likely to capture the display 
image accurately. 

A possible technique described below purposely limits the color gamut of the CRT to give the 
plotter some chance of capturing it. 

To set up the color map and plotter to match one another: 

• Set your background to white. 

• Set up pens matching the color map colors in slots 1 through 8 in the same order they are 
presented in the default color map listed under “Default Colors.” 

• Use color table entry selectors from 8 through 15 in your drawings. 

• Run the program with the color mapped CRT as the display device, modifying it as 
necessary to produce the image you want on the CRT. 

• Re-run the program with the plotter as the display device. You will need to subtract 8 from 
the color table entry selectors to properly select the pens on the plotter. 

While it is possible to get some idea of the plot that will be produced on the plotter, don’t be 
surprised if they don’t look exactly the same. Colors on a CRT are different in source and form 
from colors on a plotter, as described under “Seeing Color,” above. 
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Color References 

The following references deal with color and vision. Texts that serve as useful introductions to 
the topic are starred. 

* Cornsweet, T., Visual Perception. New York: Academic Press, 1970 

Farrell, R. J. and Booth, J. M., Design Handbook for Imagery Interpretation Equipment 
(AD/A-025453) Seattle: Boeing Aerospace Co., 1975 

Graham, C. H., (Ed.) Vision and Visual Perception New York: J. Wiley & sons, Inc., 1965 

* Hurvich, L. M., Color Vision: An introduction. Sunderland, MA: Sinauer Assoc., 1980 

Judd, D. B., Contributions to Color Science (Edited by D. MacAdam; 545) NBS special 
publication Washington: U. S. Government Printing Office, 1979 

* Rose, A., Vision: human and electronic. New York: Plenum, 1973 



Listings of Example Programs 


Appendix 

A 


Note 

Examples that include files on “DGLPRG:” may require modification. If 
your system was shipped on double-sided 3V2 inch discs, all of the example 
programs are found on the “DOC:” disc. Statements such as SINCLUDE 
’DGLPRG:FILE’S should read SINCLUDE ’D0C:FILE’$, 


Directory 

AxesGrid: 

BAR_KNOB: 

BAR_KNOB2: 

CharCell: 

COLOR: 

CsizeProg: 

DataPoint: 

DrawMdPrg: 

FillProg: 

FillGraph: 

GstorProg: 

IsoProg: 

JustProg: 

LdirProg: 

LOCATOR: 

LogPlot: 

MarkrProg: 

PLineProg: 

PolyProg: 

SinAspect: 

Sin Axes 1: 

SinAxes2: 

SinClip: 

SinLabell: 

SinLabel2: 

SinLabel3: 

SinLine: 

SinViewpt: 

SinWindow: 


Shows visual impact of axes and grids. 

Shows interactivity with one degree of freedom. 

Shows interactivity with two degrees of freedom. 

Relationship between characters and characters cells. 

Demonstrates the color map. 

Shows how to select character size. 

Supplies the data for all programs whose names start with “Sin”. 

How to specify drawing modes (draw, erase, complement). 

Shows how to do hatched and dithered area fills. 

Does a broken-line chart with the area beneath the curve shaded. 
Storing and retrieving graphic images. 

Isotropic scaling. 

Label justification. 

How to specify label direction. 

Demonstrates interactive drawing with many types of graphics cursors. 
Shows how to make logarithmic axes. 

Uses markers to highlight data points on a curve. 

Demonstrates the POLYLINE procedure. 

Using POLYGON procedure. 

Defining aspect ratio of plotting device. 

Unclipped axes. 

Labelled, clipped axes. 

Clipped axes. 

Single-sized, horizontal letters. 

Labels with sizes and directions specified. 

Bold main title. 

No viewport, no window, not much information. 

Data displayed inside framed viewport. 

Data mapped into user window. 
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AxesGrid 

pro3raw AxesGrid(output)5 

iw p o r t d S1_1ib>d s1 _in p ! {Set i r a phic s routines} 

const 

CrtAddr= 35 {address of internal CRT} 

ControlWord= 0! {device control! 0 for CRT} 

type 

RoundT'/pe= (Up> Down » Near)! {used by function RoundZ} 

var 

Ratio: real! 

MirtXmax. VirtYmax: real! 

LeftEdSe* RiShtEdSe: real! 

BottomEdSe. TopEdSe: real! 

C1ipXmin > C1ipXm ax: real! 

ClipYwin> ClipYwax: real! 

ErrorReturn: integer! {variable for initialization outcome} 

$paSe$ {#***##*****#*#**#*#******#**#**#*#**##*###****###***###*#*#*#**###*#} 


procedure Frame! 

{ -------- } 

{ This procedure draws a frame around the current window limits. } 

{---------} 

const 


WindowLimits= 450! {mnemonic better than maSic number} 

type 

LimitOrder= (Xm i n > Xmax » Ymin»Ymax)5 
LimitType= array CLimitOrder] of real! 


{ \ These are the sundries 
{ \ needed by the call to 

{ /the DGL procedure 
{ / "inq_ws", 

{body of procedure "Frame"} 


Pacs packed array [1..13 of char! { \ These are the sundries } 

I a r r a y: array El**l] of integer! { \ needed by the call to } 

Window: LimitType! { /the DGL procedure } 

Error: integer! { / "inq_ws". } 

beSin {body of procedure "Frame"} 

inp_w5(WindowLimits >0>0 »4 >Pac »Iarray .Window>Erro r)! 
if Er ro r = 0 then beSin 

move(WindowCXminl>WindowCYmin])5 {move to lower left corner} 

1ine(WindowEXmin1>Window[Ymax3)5 {draw to upper left corner} 

1ine(WindowCXmaxl>WindowCYmax3)! {draw to upper risht corner} 

1 ine(Window[Xmax3 (Window[Ymin3)5 {draw to lower risht corner} 

1ine(WindowEXmin3 (Window!Ymin3)5 {draw to lower left corner} 

end {Error=0?} 

else writeln('Error '*Error:0»' occurred in "Frame"') ! 
end! {procedure "Frame"} {return} 

$pase$ {********************************************************************} 
procedure ClipLimit(Xmin> Xmax» Ymin > Ymax: real)! 


This procedure defines the four Slobal variables which specify where the } 
soft clip limits are. } 
--------> 
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b e $ i n 


if Xmin<Xmax then 

b e S i n 

{ 

\ 


) 


ClipXmin:=Xmin 5 


{ 

\ 

Force the minimum soft 

) 


C1ipXmax:=Xmax 5 


{ 

\ 

clip limit in X to be 

) 


e n d 


{ 

\ 

the smaller of the two 

) 


else b e 3in 


{ 

/ 

X values passed in t o 

) 


ClipXmin:=Xmax ! 


{ 

/ 

the procedure. 

) 


ClipXmax:=Xmin 5 


{ 

/ 


) 


e n d i 


{ 

/ 


) 


if Ymin<Ymax then 

b e 3 i n 

{ 

\ 


) 


ClipYmin:=Ymin \ 


{ 

\ 

Force the minim u m soft 

) 


ClipYmax:=Ymax 5 


{ 

\ 

clip limit in Y to be 

) 


e n d 


{ 

\ 

the smaller of the two 

) 


else b e 3 i n 


{ 

/ 

Y values passed int o 

) 


ClipYmin:=Ymax 5 


{ 

/ 

the procedure. 

) 


Cl ipYmax:=Ymin 5 


{ 

/ 


) 


e n d 5 


{ 

/ 


) 


e n d 5 







$paSe$ {********************************************************************) 

procedure ClipDraw 
{- 

(XI » Ylt X2» Y2: 

real) 5 




--) 


■C This procedure taKes the endpoints of a line # and clips it. The soft > 
{ clip limits are the real Global variables ClipXmin> ClipXmax» ClipYmin> > 
{ and ClipYmax. These mav be defined through the procedure ClipLimit. ) 


{---} 

label 
1 5 
type 

E d 3 e s = (Left»Ri3ht»Top»Bottom)i {possible e d 3 e s to cross) 

OutOfBounds= set of EdSesi {set of edsfes crossed) 


uar 


Out >0 u11 1 0 u 12:0 u 10 f B o un d s5 
X t Y: real? 


procedure Code(X» Y: real 5 uar Out: Out Of Bounds) 5 


b e 3 i n 
0 u t: = C ] 5 

if x<C1ipXmin then Out: = [1ef11 
else if x>ClipXmax then Out:=[ri3ht35 
if vCClipYmin then Out:=0ut+Cbottom] 
else if y>ClipYmax then Out:=0ut+Ctop]5 
e n d 5 


{nested procedure "Code") 
{null set) 

{off left ed3e?) 

{off r i 3 h t e d 3 e ? ) 

{off the bottom?) 

{off the top?) 

{nested procedure "Code") 


b e 3 i n 

Code(XI»Y1»0utl)5 
Code(X2»Y2>0ut2)5 
while (Out1< >C 3) or < Out2< > C 3) 
if (Outl#Out2)OC3 then Soto 
if 0u11< >C 3 then 0ut:= 0u11 
else 0ut:=0ut25 
if left in Out then be3in 
y:=Yl+(Y2-Yl)*(ClipXmin 
x:= C1ipXmin 5 
end {left in Out?) 
else if r i 3 h t in Out then beSin 
y:=Y1+(Y2-Y1)*(ClipXmax-Xl)/( 
x:= C1ipXmax 5 
end {risht in Out?) 


do 
15 


:i )/< 


{body of procedure "ClipDraw") 

{fi 3ure status of point 1) 

{ f i 3 u r e status of point 2) 
beSin {loop while either point out of ranSe) 
{if intersection non-null» no 1 ine) 

{Out is the non-empty one) 

{it crosses the left e d 3 e ) 

X2-X1) Had just value of y appropriately) 

{new x is left ed3e) 

{it crosses risfht e d 3 e ) 

X2-X1)j{ad Just value of y appropriately) 

{new x is risht e d 3 e ) 
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else if bottom in Out then beSin {it crosses the bottom e d S e } 

x:= Xl + (X2-X1)*<ClipYmin-Yl)/(Y2-Y1)l{ad Just value of x appropriately} 
y:= C1ipYmin 5 {new y is bottom edSe} 


end {bottom in Out?} 

else if top in Out then beSin {it crosses the top edSe} 

x:=X1 + (X2-X1)*(C1ipYmax-Yl)/(Y2-Y1)?{ad Just value of x appropriately} 
y;=ClipYmax! {new y is top edse} 

end? {top in Out?} 
if 0ut = 0u11 then beSin 

X1: = x 5 Y1: = y 5 Code(x»y»0ut1)5 {redefine first end point} 
end {0ut=0utl?} 
else b e S i ri 


X2:=x5 Y2:=yi Code(x tv >0ut2)5 {redefine second end point} 
end; {else b e S i n } 
end; {while} 

m o v e(x 1 »y 1) ; {if we Set to this pointt the line* « *> 

Iine(x2»y2)! {...is completely visible » so draw it} 

1: end! {procedure "ClipDraw"} {return} 

$pa Se$ {•)(-*******■»•**********■)(-****•«•******•«•*********************•)(•■)(•*****•»{•*****-*■*} 
function Round2(N» M: real; Mode: RoundType): real! 


{ .. . . .- .. . } 

{ This function rounds "N" to the nearest "M "> according to "Mode". This } 
{ function worKs only when the argument is in the ranSe of MININT..MAXINT. } 
{--------} 


const 

e p s i 1 o n = 1E -10 5 

var 

Rounded: real! 

Negative; boolean; 

b e 3 i n 

Negative: = (N<0.0) 5 
if Negative then beSin 
N: = a b s (N) 5 

if Mode = L)p then Mode:=Down 
else if Mode=Down then Mode:=Up; 
e n d 5 


{roundoff error fudse factor} 

{temporary ho Id in s( area} 

{f 1 a S: "It is negative?"} 
{body of "Round?"} 

{is the number negative?} 

{work with a positive number} 
{if numbe r is ne Sative > ♦ . ♦ } 
{...reverse up and down} 


case Mode of {should we round the number...} 

Down: Rounded:=trune(N/M)#M5 {...left on the number line?} 

Up: beSin 


Rounded: =N/M 5 {...risht on the number line?} 

if abs (Rounded- round (Rounded )) >e ps i 1 on then 
Rounded: = (t rune(Rounded) + l.0)*M 
else 

Roun ded: = t runc(Rounded ) *M 5 


e n d 5 


Near: Ro un d e d:= t runc(N/M+M#0.5)#M 5 
end! {case} 

if NeSative then Rounded:=-Rounded5 
Round?:=Rounded5 
e n d 5 


{..♦to the nearest multiple?} 

{reinstate the siSn} 

{assiSn to function name} 
{function "Round2"} 
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$paSe$ {****#*#**#*#*#***********##**#*###**##*****#***###**#****#*#*#*###**} 


procedure XaxisClip(SpacinS > Location: real! Major: integer? 

Majsize > M i n s i z e: real)5 

{. . . . . .- ...> 

{ This procedure draws an X-axis at any intersection point on the plotting > 
{ surface. Parameters are as follows: > 

{ Spacing: The distance between ticK marks on the axis. } 

{ Location: The Y-value of the X-axis. } 

{ Major: The number of tick marks to se before draw ins a major tick } 

{ mark. If M a j o r = 5 > eue ry fifth tick mark will be major. } 

{ Majsize: The lenSth> in world units» of the major tick marks. > 

{ Min size: The length * in world units> of the minor tick marks. } 

{--------> 

va r 

X: real? 

SemiMaJsize: real? 

SemiMinsize: real! 


Counter: integer? {keeps track of when to do major ticks} 

besin {body of procedure "XaxisClip"} 

SemiMajsize:=MajSize* 0 . 5 ! 

SemiMinsize:=MinSize* 0.55 

Counter :=05 {start with a major tick} 

ClipDraw(ClipXmin >Location >C 1 ipXmax>Location ) 5 

X:=Round 2 (ClipXmin>SpacinS*MajorfDown )5 {round to next lower major} 
while X< = C 1 ipXmax do be Sin 
if Counter =0 then 

ClipDraw(X»Location-SemiMajsize»X»Location+SemiMajsize) 

else 

ClipDraw(X »Location-SemiMinsize>X >Location+SemiMinsize )5 
Counte r: = (Counte r+ 1 ) mod Major! 

X:=X+Spacin S 5 
end? {while} 

end? {procedure "XaxisClip"} 

$pase$ {********************************************************************} 


procedure YaxisClip(SpacinS> Location: real 5 Major: inteSer? 

Majsize> Min size: real)? 

{ - } 

{ This procedure draws an Y-axis at any intersection point on the piottins } 
{ surface. Parameters are as follows: } 

{ SpacinS: The distance between tick marks on the axis. } 

{ Location: The X-value of the Y-axis. } 

{ Major: The number of tick marks to Se before drawinS a major tick } 

{ mark. If Major=5> every fifth tick mark will be major. } 

{ Majsize: The lenSth> in world units > of the major tick marks. } 

{ Min size: The lenSthi in world units» of the minor tick marks. } 

{-.---------} 

v a r 

Y: real? 

SemiMinsize: real 5 

SemiMaJsize: real; 


Counter: integer 5 {keeps track of when to do major ticks} 

besin {body of procedure "YaxisClip"} 

Se miMaj siz e:= M a j siz e* 0.5 5 
SemiMin siz e:= Minsiz e*0.5 5 

Counter :=05 {start with a major tick} 

C 1 i pD r aw(Lo c ation »C 1 i pY min tLoc ation >C 1 i pY max )5 

Y:=Round 2 (ClipYmin»SpacinS*MaJor>Down )5 {round to next lower major} 
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while Y<=C1ipYmax do be Sin 
if Counter=0 then 

ClipDraw(Location-SemiMajsize»Y»Location+SemiMajsize>Y) 

else 

C1 i pD raw (Lo c at i on -Sem i M i n s i z e >Y >Lo c at i on+Sem i M i n s i z e >Y) ! 

Counter:=(Counter+1) mod Major? 

Ys =Y+Spacin S 5 
end? {while} 

end! {procedure "YaxisClip"} 

$paSe$ {*#**##**#***#*##*##**#**#**##**#***#*#***##**********#*###***#******} 
procedure G r i d (Xspac in s >Yspac in s »X1 ocY >Y1 ocX: real ! Xma Jo r t YmaJo r: intesre r ? 


Xminsize » Yminsize: real)! 

{.....> 

{ This procedure draws a Srid on the plotting surface t with user-definable > 
{ minor tick size. Parameters are as follows: } 

{ Xspacin S: The distance between tick marks on the X axis. } 

{ YspacinS: The distance between tick marks on the Y axis. } 

{ X1ocY: The X-value of the Y-axis. } 

{ Y1ocX: The Y- value of the X-axis. } 

{ Xmin>Xmax: The left and risht ends of the X-axis> respectively. } 

{ XmaJor> The number of tick marks to se before drawinS a major tick } 

{ YmaJor: mark. If Major=5> every fifth tick mark will be major. } 

{ Xminsize: The length» in world units> of the X minor tick marks. } 

{ Yminsize: The lenSth> in world units > of the Y minor tick marks. } 

{--...---.. . --> 


va r 

X t Y: real 5 

Xstart »Ystart:real 5 
XsemiMinsize: real? 

YsemiMinsize: real? 

Counter: integer? 

b e sf i n {body of procedure "Grid"} 

XsemiMinsize:?Xminsize #0.5? 

YsemiMinsize:=Yminsize*0.5? 

Xstart:=Round2(ClipXmin»XspacinS#XmaJor»Down)5 {round to next lower major} 

Ystart:=Round2(ClipYmin»YspacinS*YmaJor»Down)5 {round to next lower major} 

{ = = = = = Draw vertical major ticks .......} 

X: = X s t a r 15 

while XOClipXmax do be Sin 

C1i pD r aw(X >C1ipYmin>X >C1ipYmax ) 5 
X:=X+Xspacintf#XmaJor 5 
end! 

{===== Draw horizontal major ticks ==========================================} 

Y:=Ystart! 

while YOClipYmax do be Sin 

C1i pD r aw(C1ipXmin »Y »C1ipXmax >Y)! 

Y:=Y+YspacinS*YmaJor! 
end! 
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{===== Draw vertical minor ticks ============================================} 

X: = X s t a r 15 
Counte r:=05 

while X< = ClipXmax do be Sin 
if Counte r< >0 then be sin 
Y: = Y s t a r 15 

while Y< = ClipYmax do be Sin 

ClipDraw(X>Y-YSemiMinsize>X>Y+YSemiMinsize)5 
Y:=Y+Yspacins 5 
end * {while Y< = C1ipYmax} 
endi {counter<>0?> 

Counter: = (Counter+1) mod XmaJori 
X:=X+Xspacin S 5 
endi {while} 

{===== Draw horizontal minor ticks ==========================================} 

Y: = Y s t a r 15 
Counte r:=0 5 

while Y< = ClipYmax do be Sin 
if Counte r<>0 then beSin 
X: = X s t a r 15 

while X<=ClipXmax do be Sin 

ClipDraw(X-XSemiMinsize»Y>X+XSemiMinsize>Y)5 
X:=X+XspacinS5 
endi {while X<=ClipXmax} 
end? {counter<>0?} 

Counter:=(Counter+1) mod YmaJori 
Y:=Y+Yspacins 5 
end! {while} 

end? {procedure "Grid"} 

$paSe$ {********************************************************************} 
be sin {proSram "AxesGrid"} 

Sraphics_init i 

display _init(CrtAddr>ControlWord>E r r o rR e t urn)5 
if ErrorReturn=0 then beSin 

{ = = = Do pro Sram setup = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = } 
Ratio:= 511/3835 
set_aspect(Rat io > 1) 5 
if Ratio>1 then beSin 
MirtXmax: = 1 5 
MirtYmax: = 1/Ratio 5 
end 

else beSin 

MirtXmax:=Ratio 5 
MirtYmax:=15 
e n d; 

{ = = = Upper left viewport ==================================================} 

LeftEdSe:=0 ! 

RiShtEd Se:=0.48*Mi rtXmax 5 
B o 11 omEd Se:=0♦52#Mir tYm a x 5 
TopEdse s=MirtYmax 5 

set_viewport(LeftEdSe »RiShtEd Se>BottomEd Se >TopEdSe)5 
set_window(0 >80 >0 >40)5 
F rame 5 

ClipLimit(0>80 >0 >40)5 
XaxisCl i p (1 >0>5>2>i) 5 
YaxisCl ip(1 >0>5>2>1) 5 
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{=== Upper ritfht viewport ========================== 

Le f tEd sfe:= 0.52*0irtXmax 5 
Ri shtEd afe : = 0i rtXmax 5 
BottomEdsfe:=0.52*0i rtYmax i 
TopEdsfes=Ui rtYmax ! 

set_viewport(LeftEd£(e >Ri$htEd$e >BottomEdSe >TopEd Se) ! 
s e t _win d ow(0 >80 >0 >40)j 
F rame 5 

Cl ipLimit(0>80 >0 >40)5 
G r i d (5 >5 >0 >0 >4 >4 >1 >0*8) 5 

{=== Lower left viewport =========================== 

LeftEdSe:=05 

Ri 4 h tEd 3e:= 0 * 48*0irtXmax 5 
BottomEd 4e s = 0 5 
TopEd$e:=0.48*0irtYmax5 

set_v iewpo rt (Lef tEdSe >Ri sfhtEdSe >BottomEdSe >TopEd*e) 5 
s e t_wind ow(0 >80 >0 >40)5 
F rame 5 

C1 i pL imit(0 >80 >0 >40)5 
Grid(2 >1>0 >0 >10>10 >0.001>0.001)5 

{=== Lower ritfht viewport ========================== 

Lef tEdsfe : =0.52*0i rtXmax 5 5 
Ri JlhtEd Se : =0i rtXmax 5 
BottomEd3e:=0 5 
TopEd 3e:=0.48*0irtYmax i 5 

set_viewport(LeftEd$e>RiShtEdffe >BottomEd3e >TopEd $e) 5 
s e t_win d ow(0 >80 >0>40)5 
F rame i 

C1ipLimit(0 >80>0 >40)5 
XaxisClip(1>0 >5 >2>1) 5 
Y a x i s C1 i p < 1 > 0 > 5 > 2 > 1) 5 
XaxisClipd >40 >5 >2 > 1) 5 
YaxisClip(l>80 >5 >2 >1)5 
Grid (10 >10 >0 >0 >1 >1 >2 >2) 5 
end! •£ErrorReturn=0?> 

Sraphics_te rm 5 
end. 


{program "AxesGrid"> 
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BAR_KNOB 



va r 

Error_num: integer! 

I »T e m p I n t: integer? 

LeueltLastLevel: real! 

Delta: real! 

CharWidth>CharHeisht: real! 

Character: char? 

Done: boolean? 

Keyboard: text? 

TempSt rin S: GstrinS255! 

$paSe$ {************************************************•)(•**■)(•****************> 

procedure GraphicsDisplay(State:States {On/Off})5 

const 

GraphicsDisp= 1050? 


oar 

Error:inteSer! 

SwitchArray:integer 5 
Dummy:real 5 

besfin {procedure GraphicsDisplay} 

case State of 

On:SwitchA rray: = 15 
Of f:SwitchA r ray:=0 5 
end! {case State of} 

output.esc(GraphicsDi sp > 1»0>SwitchA r ray >Dummy >Er ro r) ! 
if Error <> 0 then 

writeln ('Error '>Error:l>' encountered in GraphicsDisplay')! 
end! {procedure GraphicsDisplay} 
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$pa Se$ {***************************###************************#*************} 

procedure AlphaDisplay(State:States -C0ri/0ff>) 5 

const 

AlphaDisp=10515 


{procedure AlphaDisplay> 


var 

Error: integer; 

SwitchAr ray:inte Se r 5 
Dummy:real 5 
b e sf i n 
case State of 

On:SwitchA r ray: = 15 
Off:SwitchArray:=0! 
end? {case State of} 

outPut_esc(AlphaDisp >1>0 >SwitchArray>Dummy>Error) 5 
if Error < > 0 then 

write In ('Error '>Error:l>' encountered in AlphaDisplay 


{procedure AlphaDisplay} 

{********************************************************************} 

{Main Program} 

{current height of bar} 

{previous heisht of bar} 

{initialize the Graphics system} 

{which output device?} 

{output device initialization OK?} 
{turn off alpha display} 

{turn on Graphics display} 

{use whole screen} 

{scale the window for the data} 

{color number 1: white} 

{char width: 3♦5Z of screen width} 
{char height: 51 of screen height} 
CharHeiSht); {install character size} 


e n d 5 
$pasfe$ 
b e 4 i n 
L e v e 1: = 0 5 
L a s t L e v e 1: = L e v e 1 ; 
araphics_init; 

di spI ay_init(3 >0 >Erro r_Num)5 
if Error_Num=0 then besin 
AlphaDisplay(Off)5 
GraphicsDisplay(On)5 
set-aspect(511>389)5 
s e t_win d ow(0>400 >-30 >120)i 
set_co1o r(1)5 
CharWidth:=(0.035*400)5 
Ch a rHei3h t: = (0♦05*150)5 
set_char_size(CharWidth> 

{- Outline the Bar - 

move(MinBarX-0.5>MinBarY-0.5)5 
1ine(MinBarX-0♦5 tMaxBarY+O♦5)5 
1ine(MaxBarX+0»5 >MaxBarY+0*5)! 
1ine(MaxBa rX+O♦5 >MinBarY-0♦5)! 
1ine(MinBarX-0.5 >MinBarY-0.5)5 


{move to lower left corner***} 
{(♦♦draw to upper left corner(((} 
{♦♦♦draw to upper risht corner^ ♦} 
{♦♦♦draw to lower left co rne r♦♦♦ } 
{♦♦♦and draw to lower left corner^} 


} 


{- Label the bar (numeric labels) -} 

for I: = 0 to 10 do besfin 

st rw rite(TempSt rin S >1>TempInt >1*10:3 >'-')5 

move (179-strlen(TempStrinsf)*CharWidth > 1*10-0 ♦ 24*Cha rHe i sfh t) 5 
tftext (TempStrinS)5 
end? {for I: = 1 to 10 } 

{-Label the bar (textual labels)..-..} 

move (221> 80-CharHeiSht/2)5 
tftext ( '-HiSh No rmal')5 
move (221 > GO-CharHeiSht/2)5 
jftext ( ' -Low No rmal')5 

{-How about some instructions -} 

CharWidth:=(0(02*400)5 {char width: 21 of screen width} 

CharHei3ht:=(0(035*150)5 {char height: 3(5Z of screen height} 

set_char_size(CharWidth> CharHeiSht)? {install character size} 
move (0 > 5)5 

TempStrinS:='Use the Knob to'+CR+LF5 
Stext (TempSt rinS); 

TempStrinS: ='Adjust the value♦'+CR+LF5 
at ext (TempSt rin3)5 
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TempStrinS:=' '+CR+LF? 

St ex t ( TempSt r in S) ! 

TempStrinS: = 'SHIFT with the Knob '+CR+LF5 
stext (TempSt rinS)5 
TempStrin?: ='speeds it up 
stext (TempSt rin?) i 
TempSt rin?: = ' ' 5 

{-Set a ?ood character 

Cha rWidth: = (0.035*400)5 
CharHei?ht: = (0*05*150) 5 
set_char_size(Charklidth > CharHei?ht) 
repeat 

read(keyboard >Character)5 
D e 11 a: = 0 5 
case Character of 


'+CR+LF5 


size ..-.-.— > 

{char width: 3.5X of screen width) 
{char heisht: 51 of screen heisht) 
{install character size) 


Delta: 

Delta: 

Delta: 

Delta: 


IncDeltai 
-IncDeltaj 
10 * I n c D e 11 a i 
-10*IncDeltai 


and 


FS: 

BS: 

LF: 

US: 

0 #01s Done:=TRUE 5 
otherwise 

end? {case ord(Character)) 
if Delta>0 then be?in 
set.colo r(1) 5 

while (LeveKLastLevel+Delta) 

Le ve1:=Leue1+IncDe1ta5 
move(MinBarX»Level)I 
line(MaxBarXfLevel)5 
end {while (Leve KLastLevel) and 
end {if (De11a>0) and (Level<100) 
else b e ?in 

if (De11a<0 ) and (Level>-0 
set_color(0) i 
repeat 

move(MinBa rX* 

1ine(MaxBa rX > 


{?et character without echo to screen) 
{start by assumin? no motion) 

{what's the character?) 

{ ri ?ht arrow?) 

{left arrow (backspace)?) 

{down arrow?) 


{ UP 

{or 

{if 


arrow?) 
Quit?) 
none of 


the above > i? n o r e it) 


{Coin? Up) 

{we want to draw lines) 

(Level<MaxBarY-IncDelta) do be?in 
{new top of bar) 

{move to left e d S e ♦. ♦ ) 

{..♦and draw to risht edse) 
(LeveKMaxBarY) ) 

) 

{Goins Down) 

5*IncDelta) then be Sin 

{we want to erase lines) 


Level) i 
Level) i 


{move to the left ed?e...) 

{.♦♦and draw to the risht edse) 

Le ve1:= Leve1- IncDe11 a 5 {new top of bar) 

until (Leve1< = LastLeve1+Delta) or (Level<=MinBarY) 
end! {if (Delta<0) and (Level)O)) 
e n d 5 

{-How about some numbers? -) 

set_color(0)5 {we want to erase lines) 

strwrite(TempStrin?>1>TempInt>LastLeve1:5:1)5 {convert level to chars) 
move(MinBarX+(MaxBa rX-MinBarX)/2-st rlen(TempSt rinS)*Cha rWidth/2 > 
MinBarY-2*CharHeiSht)5 

St ext(TempStrin?)5 {erase the old number) 

set_color(l)5 {we want to erase lines) 

strwrite(TempStrin?>l»Temp In t»L e v e1:5:1)5 

move (MinBa rX+(MaxBa rX-MinBa rX)/2-st r1en(TempSt rin S)*Cha rWidth/2 > 
MinBarY-2*CharHeiSht) ; 

{write the new) 

{remember the old number) 

{repeat until user hits C 0 3 ) 

{turn off Sraphics display) 

{turn on alpha display) 

{clean up loose ends) 


St ext(TempSt rin?) ; 

L a s t L e v e 1: = L e v e 15 
until Done! 
GraphicsDisplay (Off) 
AlphaDisplay (On)5 
d i spI a>'_te rm 5 
end? 

S raphics_te rm5 
end. 


{terminate the 
{main pro?ram) 


Sraphics packaSe) 
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BAR_KNOB2 


$ucsd >debuS$ 

pros ram Test(Keyboard >out put)I 

import dsl.uars >d Sl_types>dSi_1ib> d S1 _ i n p 5 

type 


D rawMode : 
BarX = 
States= 
const 


(Draw >Erase tComp > N o n D o m) 5 
a r ray Cl..5] of intese r 5 
(On >0ff ) ; 


FS = 

BS = 

US = 

LF = 

CR = 

Q = 

01 = 

Und e r1in e = 
I n d _.o f f = 

I n v _ □ n = 
MinBarY= 
MaxBa rY = 
MinBarX= 
MaxBa rX = 

I n c D e 11 a = 


c h r(28) 5 
ch r (8) 5 
c h r (31) 5 
c h r (10) 5 
ch r(13)5 
'O'; 

'p ' 5 

c h r <132) 5 
chr(128)5 
chr(128)5 
0 5 

100 5 

BarXCaO >130>220>310 >40015 
BarXC80>170>280>350>4401 5 
0.15 


uar 

E r ro r_num: 

I > T e m p I n t: 

L e v e 1 > L a s t L e v e 1: 

Bar: 

Delta: 

CharWidth >CharHeiSht 
Characte r: 

Done: 

K e y b o a r d : 

TempSt rin S: 


inteSer! 
intese r 5 

array C1♦.5] of real 5 

inteSer! 

real 5 

real 5 

char 5 

boolean 5 

text 5 

GstrinS255 5 


•{mnemonic better than masic number} 


$pase$ <********************************************************************> 

procedure Se tD rawliode (Mode: DrawMode)? 

const 

OpSelector= 10525 

uar 

I n t A r r a y: inteSer? 

RealArray: inteSer? 

Error: inteSer? 

b e s i n 

case Mode of 

Draw: IntArray:=05 { \ 

N o n D o m: I n t A r r a y : = 1 5 { \ 

Erase: IntArray:=25 { / 

Comp: IntArray:=3 { / 

end? {case Mode of} 

outPut_esc(OpSelector>l>0 >IntArray>RealArray>Error)5 
end5 {procedure SetDrawMode} 


{ \ All this stuff is needed 
{ > by the DGL procedure 

{ / OUTPUT_ESC♦ 

{procedure SetDrawMode} 


MaSic numbers for the 
four drawinS modes. 
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$pase$ {#**#*****#**#*##**######*##****###*•**#*#*##***#*#*##*#**#*****##*#**) 

procedure GraphicsDi spI ay(State : States {On/Off})! 

const 

GraphicsDisp= 1050! {mnemonic better than maSic number) 

va r 


Error: 

integer? 

{ \ 

All this stuff is needed 

) 

SwitchArray: 

integer! 

{ > 

by the DGL procedure 

) 

Dummy: 

real 5 

{ / 

OUTPUT-ESC. 

) 


b e S in {procedure GraphicsDisplay) 

case State of 

On: SwitchArray:=15 { 1 = o n » and*.*) 

Off: SwitchArray:=0 5 {0 s off.) 

end! {case State of) 

outPut_esc(GraphicsDisP)l»OfSwitchArray>Dummy>Erro r)5 
if ErrorOO then 

writeln('Error OError:l>' encountered in GraphicsDisplay')) 
end) {procedure GraphicsDisplay) 

$paSe$ {****-k-*********************************************#*****************) 

procedure AlphaDisplay(State: States {On/Off)) 5 

const 

AlphaDisp= 10515 {mnemonic better than masic number) 

v a r 


Error: 

integer? 

{ \ All this stuff is needed 

) 

SwitchArray: 

integer? 

{ > by the DGL procedure 

) 

Dummy: 

real 5 

{ / OUTPUT-ESC* 

) 

b e s i n 


{procedure AlphaDisplay) 


case State of 




On: SwitchArray 

: = 15 

{1 = on > and... ) 


Off: SwitchArray 

: = 0 5 

{ 0 = o f f ♦ ) 



end? {case State of) 

outPut_esc( A 1 phaDi sp > 0 »SwitchArray >Dummy*Error )5 
if ErrorOO then 

writeln('Error ')Error:i>' encountered in AlphaDisplay')? 
end) {procedure AlphaDisplay) 

$paSe$ {a**##***********#*******#****#*##******#*#****#**#*#*#*****#*##**#**) 
procedure C1e a rIn d(B a r: integer)! 

besin {procedure Clearlnd) 

SetDrawMode(Erase )5 

moue(MinBarXCBar]> Min B a rY- 1 . 3 *C h a rH eiSh t )5 
line(MaxBarXCBarl»MinBarY-l* 3 #CharHeiSht )5 
end? {procedure Clearlnd) 

$paSe$ {*******************■*•«•***********************************************) 
procedure SetInd(Bar; integer)! 

be Sin {procedure Setlnd ) 

SetD rawMode(Draw )5 

move(MinBa rXCBa rl»MinBa rY- 1 . 3 *Cha rHeiSht )5 
1 ine(MaxBa rXCBa r 3 »MinBarY-l* 3 #CharHeiSht )5 
end? {procedure Setlnd) 
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$paSe$ {********************************************************************} 
procedure UpdateValue(Bar:inteSer)5 


v a r 


real 5 


LastCharWidth >LastCharHeisht: 
b e S i n 

La5tCharWidth:=CharWidthi 
LastCharHeisht:=CharHeisht; 

CharWidth:=(0.025*512)5 
CharHeiSht:=(0.045*150)5 
set_char_size(CharWidth>CharHeiSht)5 

{-Erase the old- 

SetD rawMode(E rase)5 
TempSt rin i:-'' 5 
st rwrite(TempSt rinS >1 >Temp Int tLastLeve 1 CBa r]: 5:1) ! 
move(MinBarX[Bar3+(MaxBarX[Bar3-MinBarXCBar3)/2- 


{procedure UpdateValue } 

{store old character width} 

{store old character heisht} 

{new char width: 2.51 of screen width} 
{new char width: 2.5Z of screen heisht} 
{install the character size} 

-. } 

{draw with black lines} 

{null out any old value} 

{convert to string} 
{move to risht place} 


to string} 
ri sfht place} 


st rlen(TempSt rinS)*CharWidth/2 >MinBarY-2.5*CharHeiSht)5 
srtext(TempStrinsf) 5 {label the string} 

{-Write the new - 

SetDrawMode(Draw)5 {draw with white lines} 

TempStrin s: = ' ' \ {null out any old value} 

s t rw rit e(Tem pS t rin i >1 >TempInt>Le ve1C Ba r 3:5:1)5 {convert 

move(MinBarXCBar3+(MaxBarXCBar3-MinBarX[Bar3)/2- {move to 

st rlen(TempSt rin s)*CharWidth/2 >MinBarY-2.5*Cha rHeiSht)5 
tftext (TempS trinsO! {label the strinS} 

{-Reinstate the old character size —. 

CharWidth:=LastCharWidth5 {restore old character 

CharHeiSht:=LastCharHeiSht5 {restore old character 

set_char_size(CharWidth>CharHeisfht)5 {install old character 

end? {procedure UpdateValue } 

$paSe$ {********************************************************************} 


width} 
heisht} 
size} 


b e S i n 

Sraphics_init5 

d i sp1 ay_init(3 »0>Error_Num)5 
if E r ro r_Num = 0 then be Sin 
AlphaDisplay(Off)5 
G raphicsDi spI ay(On)5 
set_aspect(511>389)5 
s e t_win dow(0 >511>-50 >110)i 
set.colo r( 1) i 
SetDrawMode(Draw)5 
CharWidth:=(0.020*400)i 
CharHeiSht:=(0.035*150)! 
set_char_size(CharWidth>CharHeiSht)5 
{-Make the Bars ... 


{Main Pros ram} 

{initialize the sfraphics system} 
{which output device?} 

{output device initialization OK?} 
{turn the alpha display off} 

{turn the Graphics display on} 

{use the whole screen} 

{scale the window for the data} 

{draw with white} 

{dominant drawinS mode} 

{char width: 2Z of screen width} 
{char heisht: 3.5X of screen heisht} 
{install the character size} 
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to string} 
risht place) 


for B a r: = 1 to 5 do b e 3 i n 

{-Initialize the leu els —- > 

L e u e1C B a r]:= 0 5 {all barsat leu el zero) 

LastLevelCBar]:=Level[Bar]5 {old ua 1ues > too) 

{-Outline the Bar -) 

moue(MinBarXCBarl-1»MinBarY-(1 GO/389)) ! {wove to lower left corner.* 

1ine(MinBarXtBarl-1>MaxBarY+(160/389))5 {...draw to upper left...} 

1 ine (MaxBa rXtBa r ] + l >MaxBarY+ (1G0/389)) 5 {...draw to upper r i sf h t. ♦ * > 

1ine(MaxBarXCBarl + 1/MinBarY-(160/389)) ! {...draw to lower risht...} 

1ine(MinBarXCBar]-l>MinBarY-(1G0/389))5 {...and draw to lower left.) 

{-Label the bar -} 

TempSt rin 3: = ' ' 5 {null out any old value) 

strwrite(TempStrins>l>TempInt>'Bar ' > B a r: 1) 5 {convert 

wove(HinBarX[Bar] + (MaxBarXCBar]-MinBarXCBar])/2- {wove to 

5trlen(TempStrin3)*CharWidth/2»MinBarY-1.25*CharHei3ht); 
3text(TempStrin3)5 {label the text) 

{-Put numbers alongside the bars -} 

for I: = 0 to 10 do b e 3 i n 

TempStrin?:= '' 5 {null out any old value) 

st rw rite(TewpSt rin 3 >1>TewpInt>1*10:3 >'-')! {convert 

wove (MinBarX[Bar ]-st r 1 en (Tem pG t rin3) *Charl*lidth > {wove to 
1*10-0.24*CharHeiSht)! 

stext(TempStrinS)5 {label the text) 

end? {for I:=1 to 10 ) 

UpdateValue(Bar)> {modify the bar) 

end! {for) 

{-How about some instructions -} 

CharWidth: = (0.02*511) ! {char width: 21 of 

CharHeisht:=(0.035*160)5 {char height: 3.5% 

set_char_size(CharWidthtCharHeisht)5 {install character 
move(0 >-30)5 

TempStrin3: = 'Use Number Keys to select a bar.'+CR+LF! 

Stext(TempGt rin 3)5 
TempSt rin3: = ' ' + CR+LF ! 

Stext(TempSt rin3); 

TempStrin3: ='Use the Knob to adjust the value.'+CR+LF! 

3text(TempSt rin 3)5 

TempStrin3: ='SHIFT speeds up the Knob . '+CR+LF! 

3text(TempSt rin3)5 

{- Start the interactivity -) 


to strin3) 
risht place) 


screen width) 
of screen heisht) 
size) 


Ba r:=3; 

Setlnd(Bar) 

repeat 


{which bar active at first' 
{tell the proSram so) 


read(Ke; 

■'board Character)? 

{read character 

with no 

echo 

D e 11 a: = ( 

:>; 


{assume no motion until 

told 

case Character 

of 




FS: 

Delta: 

= I n c D e 11 a 5 

{risht arrow?) 



BS: 

Delta: 

= -1 n c D e 11 a 5 

{left arrow (or 

backspace)?) 

LF: 

Delta: 

=10*IncDelta5 

{down arrow?) 



US: 

Delta: 

=-10*IncDelta? 

{up arrow?) 



0 *01 s 

D o n e : = 

true? 

{or Quit?) 



'1'., 

' 5': b e 3 i n 




Clearlnd(Bar)5 

{deactivate old 

bar) 



to screen) 
otherwise) 


Bar:=ord(Character)-ord('0')5 
Setlnd(Bar)5 
end; 

otherwise 
end? {case) 


{determine new bar's number) 
{activate new bar) 

{if none of the above > do nothin?) 
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if(De1ta>0)then beSin {GoinS Up) 

SetDrawMode(Draw)5 {draw with white lines) 

while (LeuelCBarKLastLeuelCBarl+Delta) 

and (Leue1[Ba r]<MaxBa rY-IncDelta)do be Sin 
LeuelCBar]:=Leuel[Bar]+IncDeltai {calculate 


moue(MinBa rXCBa r3>LeuelCBar3)5 
1ine(MaxBa rXCBa r3>LeuelCBar3)5 
end {while) 
end {if) 
else beSin 


{moue to the 
{... and draw 


new 1e ue1) 
left end.**) 
to the risht edSe) 


{deltaCO) 

if (Delta<0) and (LeuelCBar3>=0.5*IncDelta) then beSin {Goins Down) 
SetDrawMode(Erase ) ! {draw with blacK lines) 

repeat 

woue(MinBarXCBar3»LeuelCBar])5 
1 ine(MaxBarXCBar3>LeuelCBar3) i 
LevelCBar3:=LeuelCBar]-IncDelta5 


{wove to left edSe...) 
{.♦.and draw to risht edSe) 
{decrement leu el) 


until (Leue1[Bar3< 
end! {if) 
end? {else) 

{- How about some numbers 

UpdateValue(Bar)5 
LastLeuel[Bar]:=LeuelCBar]5 
until Done? 
GraphicsDisplav(Off)5 
AlphaDi spI av(On)5 
display_term5 
end 5 

S raphics_te rm 5 

end. {Main Pros ram) 


LastLeuelCBarl+Delta) or (LeuelCBarK=MinBarY) 


•. . ) 

{chanSe the bar's numeric label) 
{remember the current u a 1u e) 

{pressed C03 yet?) 

{turn off Sraphics display) 

{turn on alpha display) 

{clean up loose ends) 

{terminate the Sraphics system) 
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CharCell 


program CharCel1(output) i 
impo rt d3l_l ib* d3l_inp 5 
const 

Crt= 35 

Control 3 05 

type 

Lor3Type= 1..9 5 

Str255= st rin^C 255]5 

ua r 

Error: integer? 

I> X > Y: integer? 


<pro^ram name same as file name) 
•(access the necessary procedures} 

(device address of Sraphics raster} 
(device control word? ignored for CRT} 

(the valid values to pass the "Lor3"} 
(for the procedure "Glabel"} 


( d i s p 1 a y _ i n i t 
(loop control 


return variable? 0 = ok} 
variables} 


$pa3e$ {*********************#**********************************************} 

(body of program "CharCell"} 
(initialize Graphics library} 


b e 3 i n 

3raphics_init 5 

display_init(Crt^Control>Er ro r)5 
if Error=0 then be3in 
set_aspect(511>389)5 
move(-l>-l)5 line(-l>l)5 lined >1)5 
set_window(-2>38>-7.5>22.5)5 
set_cha r_size(1>2)5 
move(1>21) 5 

3text('Size of Character in Character 
for X:=0 to 36 do be3in 
for Y:= 0 to 15 do be3in 
move(X-0*1>y+0.1)5 
1ine(X+0♦1>Y-0.1)5 
move(X+0«1>Y+0.1)5 
1ine(X-0«1>Y-0.1)5 
end? (for y} 
end? (for x } 
for Is =0 to 3 do be3in 

move(I*9>0)5 1ine(1*9>15)5 
end 5 

set_char_size(9 >15)5 
move(1>4) ! 

31 e x t ( ' G b y ? ') 5 
end; (Error=0?} 

3raphics_term; 
end* (pro3ram "CharCell"} 


(initialize CRT} 

(if no error occurred***} 
(use the whole screen} 

1 i n e (1 > -1) 5 1 i n e ( -1 > -1) 5 

(define appropriate window} 
( \ 

( > Do main label 

( / 


Cell 
( \ 


) ; 


( \ 

( \ 

( \ 

( / 

( / 

( / 

( / 

(draw a 

1 ine(1*9+9 >15)5 


Draw the four 9x15 
character cells* Make 
a frame around each> 
and an X at every 
point* 


frame around each char cell} 
1 ine(1*9+9 >0)5 1 i ne (I * 9 > 0)5 


(bi3 characters} 

(3o to startin3 position} 
(label some characters} 

(end of conditional code} 
(terminate 3raphics library} 
(end of pro3ram} 
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COLOR 

$ucsd >debus$ 

program Test(Key board t output)5 

ilitpo rt d3l_uars >dsfl_types >dsl_l ib >dsl_poly >dSl-ins ! 
type 


Colors* 

(Red »Y e11o w 

>Green »Cyan»Blue »MaSenta iWhite >BlacK) 

i 

Modes* 

(Hue >Sat »Lum >Table >Cop'/1 »Cop'/2) » 


Ent ryRanSe* 

-1.* IB! 



FunnyA r ray = 

array [Colors] of char! {array for alpha color! 


const 




FS = 

c h r(28)1 

{right arrow! 


BS = 

ch r (8) 5 

{left arrow or backspace} 


US = 

c h r(31) i 

{up arrow! 


LF = 

c h r(10) i 

{down arrow} 


CR = 

chr(13) i 

{carriage return} 


C = 

•C '; 

{ \ 

} 

Cl = 

' c ' 5 

{ \ 

} 

E = 

'E' i 

{ \ 

} 

El = 

'e '; 

{ \ 

} 

H = 

y h 7 ; 

{ \ 

} 

HI = 

'h' 5 

{ \ These are the va 1 id 

} 

L = 

'L' i 

{ / user responses! 

} 

LI = 

'1 ' 5 

{ / 

} 

0 = 

# q '; 

{ / 

} 

01 = 

'q ' 5 

{ / 

} 

S = 

'S' 5 

{ / 

} 

II 

*H 

to 

' s ' 5 

{ / 

} 

Display_Cont= 

1050 5 

{mnemonic better than magic number} 

Underline* 

chr(132)! 

{alpha enhancement: underlining} 


I n d _ o f f = 

chr(128)i 

{turn enhancements off} 


lnv_0n= 

chr(129) i 

{alpha enhancement: inverse video} 

Funny Char* 

Funn>*Array[chr( 139) >chr( 137) » {\ Array for 

} 



chr(136)»chr(140) > { \ holding the 

} 



chr(142) >chr(143) > { / alpha-color 

} 



chr(141) »chr(138)]5 {/ controllers 

} 
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$pa Se$ {a#*#*#*****#*****##**#*****##***#*##***#######*#*****#***#*#*##****#) 
Mar 


Erro r_num: 

integer? 


{return variable) 




I > T e m p I n t: 

i n t e S e r 5 


{temporary variables) 




OpA r ray: 

a r r a y [ 1 ♦ * 5 ] 

of 

Ssho rtint! 




X a r r a y »Y a r r a y > 



{locations of 

points) 


Y f i 11 _ a r r a y : 

a r r a y C1 . . 51 

of 

real 5 {same points t 

b u t 

filled) 

Delta: 

real i 






H u e M a 1: 

a r r a y [ 0. . 15 ] 

of 

real? {\ For each 

of 

the 

) 

S a t V a 1: 

a r r a y [ 0. . 15 ] 

of 

real! { \ sixteen 

pens t we 

) 

LumVal: 

a r r a y [ 0 * * 15 ] 

of 

real! { \ need to 

know the 

) 

G r e e n V a 1: 

a r r a y [ 0 ♦ . 15 ] 

of 

real? { / HSL values 

as 

) 

B1 u e V a 1: 

a r r a y [ 0 ♦ . 15 ] 

of 

real? { / well as 

the 

RGB 

) 

RedVal: 

array!0♦♦15] 

of 

real? { / values. 



) 

H u e _ i n d : 

char 5 


{ \ 



) 

S a t _ i n d : 

char 5 


{ > Various indicators. 


) 

Lum_ind: 

char 5 


{ / 



) 

T a b _ i n d : 

chari 


{and another) 




Characte r: 

char? 


{utility variable) 




Done: 

boolean ! 


{are we throuSh yet?) 




k e y b o a r d: 

text 5 


{non-echoins input) 




TempStrinS: 

Gst rinS255 5 


{temporary holdinS place 

fo r text) 

Mode >LastMode : 

Modes 5 






Curso rColo r : 

EntryRanSe 5 






Copy_Source: 

EntryRan Se ! 






LastTab1eEnt ry : 

Ent ryRan Se 5 






Table Entry: 

Ent ryRan se 5 






X_Loc : 

a r ray CO♦♦15] 

of 

i n t e S e r ; 




Y.Loc : 

array CO* ♦ 15] 

0 f 

i n t e S e r 5 




I n t _ a : 

i n t e S e r 5 






Real_A: 

real 5 






RedBack »GreenBack t B1ueBack : real 

5 





LabelColor: 

char? 






Back Sum »01dBackSuw: 

0 ♦ ♦ 7 5 







$paSe$ <********************************************************************> 
procedure MenuLine 5 

be Sin {procedure MenuLine> 

writelndabelColo r) 5 {write in appropriate color) 

S o t o x y (0 »0)5 {So to upper left corner of the screen) 

w rite('Color Selector:'>Unde rline > 'H ' >Ind_o ff>' ue»') ! 
w rite(Unde rline >' S'>Ind_off »'atu ration »') 5 
w r i t e (Un d e r 1 i n e »' L ' »I n d _o f f >' um i n o s i t y >') 5 
w rit e( 'table '»Underline»'E' >In d _ o f f >' nt r y t ')5 
w rit e(Un d e r1in e >'C'»Ind_off>'opy c o1o r t ')5 
w r i t e 1 n (Un d e r 1 i n e t ' 0 ' > I n d_o f f >' u i t') ! 
end? {procedure MenuLine) 
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$pas e$ <*****************************************************•*•************** > 
procedure DisplavStuff5 


H u e _ I n d 
S a t _ I n d 
Lum.ind 
Tab.ind 


= In u_0n 5 
=Inv.On5 
= Inv.On ! 
= I n o _ 0 ri 5 


{procedure DisplayStuff} 
{write in appropriate color} 
{which value are we tweak in s' 
{ \ 

Turn on the display 
enhancement for the 
appropriate indicator. 


} 


{No Indicators on} 


\ 


/ 


/ 


{fourth row> first column} 


b e S i n 

writeln(LabelColor)! 
case Mode of 
Hue: 

Sat: 

Lum: 

Table: 

Copy 1»Copy2: 
end! {case} 

S o t o x y (0 1 3) 5 

writeIn(Hue.ind>' Hue ' >Ind_off)5 
writeln(HueMalCTableEntry]:5:2)! 
w rit e1n(S a t _ind >' Sat ' 1 In d _ o f f ) ! 
w riteIn(SatUal[Tab 1eEnt ry]:5:2)! 
write In(Lum_ind>' Lum ' »In d _ o f f)5 
w rit e1n(LumVa 1C Tab 1e Ent ry 3:5:2)5 
writeln(Tab_ind>' Entry ' »Ind_off)5 
write In(Tab 1eEntry:3)! 

Sotoxy(0 1 20)5 
Hue.ind:=ch r(128)5 
Sat.ind:=ch r(128)5 
Lum.ind:=ch r(128)5 
Tab.ind:=ch r(128)5 
end! {procedure DisplavStuff} 

$paSe$ {a#*##*****#####******#***#***###**#***#**#*#***#***#***#*#*#*#***#**} 
procedure UpdateCurso r(Tab 1eEnt ry:inteSe r)! 

{ .... - ... } 


{twenty 
{ \ 

{ \ 

{ / 

{ / 


first row> first column} 

Turn all display 
enhancements off 


procedure 
b e s i n 
Xa r rayC1] 
X a r r a y C 21 
Xa rray[33 
XarravEfl] 
YarrayC1] 
Y a r r a y C 2 3 
Yarrayt3] 
YarrayC 4] 


DrawCurso r(Tab 1eEnt ry:inteSer) ! 

{procedure DrawCursor} 


= X_Lo c C Tab 1e En t ry3 +0.15 
= X.Lo c C Tab 1e En t ry ]+0 . 5! 

= X_Loc[Tab 1eEnt ry 3 +0♦9 5 
= X_L o c[Tab 1e En t ry 3 +0.15 
= Y.Lo c[Ta b1e En t r y 3-0.09 5 
= Y_Loc[Tab 1eEntrv3-0.01! 
= Y.Lo c[Tab 1eEnt ry 3-0.09 ! 
= Y.Loc[Tab 1eEnt ry 3-0.09! 


\ 


\ 


set.psn, 
po 1 y sfon. 
end! 

{ . 


. s t y 1 e (15) 5 


{ 

{ 

{ 

{ 

{ 

{ 

{ / 

{ / 

{entry 


/ 


,deu_dep(4»Xarray>Yarrav »Qpftrray) ! 


Define the triangular 
cursor. 


#15 from the polygon 
{draw the cursor} 


} 

} 

} 

} 

} 

} 

} 

} 

table} 


{procedure DrawCursor} 


besin {procedure UpdateCursor} 

if LastTableEntryOTableEntry then besin {any change?} 


set.PSn.color(O)5 
D rawCu rso r(LastTab 1eEnt ry) 
end! {if} 

set.psfn.co 1 o r(Curso rCo 1 o r) 5 
DrawCursor(Tab 1eEntry)5 
LastTab1eEnt ry:=Tab1eEnt ry 
end! {procedure UpdateCursor} 


{choose fill color of background} 
{draw in background color (erase)} 

{select poly Son color} 

{draw the new cursor} 

{remember the new cursor position} 






Listings of Example Programs A-21 


$paS e$ { ###**#************************************************************** } 


b e 3 i n 

Hue_ind:=chr(128)5 
Sat_inds=chr<128)5 
Lum_ind : =ch r (128) 5 
Tab_ind:=chr(128)5 
Tab 1eEntry:=05 
LastTableEnt ry:=05 
Mode:=Tab1e ! 

Curso rCo1o r: = 15 
L a b e 1C o 1 o r: = F u n n y C h a r [ B1 a c K ] 5 


{Main Pros raw} 

{ \ } 

{ \ All h i s h 1 i S h t s initially } 

{ / off, } 

{ / } 

{currently indicated entry) 
{previously indicated entry) 
{selection wode first) 

{waKe sure the cursor is visible) 
{labels contrast with backsround) 


Sraphics_init5 

display_init(3 >0 >Erro r_Num)5 
if Error_Num = 0 then be Sin 
set_char_size(0.175>0.15)5 
set_pSn_sty le(15)5 
set-aspect(511>388)5 
s e t _ w i n d o w ( -1,1 > 8 > - 0,7 > 2 ♦ 2 
{ ---- Set up color system 


{initialize the S r a p h i c s system) 

{which output device?) 

{successfully initialized) 

{define the character size) 

{select the poly Son style) 

{use the whole screen) 

5 {scale the window for the data) 

and set bacKSround color-) 


set_colo r_mode1(2)5 

{HSL) 




HueUal[Tab 1eEnt ry 3:=0 5 

{ 

\ 

Current 

Tab 1eEntry: 0. 

) 

SatMal[TableEntry3:=0i 

{ 


C u r r e n t 

entry's color: 

) 

LumUal[Tab 1eEnt ry 3:=0.G > 

{ 

/ 

BOX Sr a) 

t , 

) 

set_color_table(TableEntry> 

{ 

\ 



) 

HueMal[Tab 1eEntry 3> 

{ 

\ 

Install 

the currently- 

) 

SatMal[Tab 1eEnt ry3 > 

{ 

/ 

defined 

color. 

) 

LuwMal[Tab 1eEnt ry 3)5 

{ 

/ 



) 


colors from the color wap.....) 

do inq_color_table(I>HueMalC11#SatMalCI]>LumMal[I3)5 

arrays for poly Son -) 

{2: First vertex of a poly Son) 

{1: Draw from the last vertex to this) 
......) 


= 1 i 
lower 


row 


\ 


\ 


/ 


Define the outline 
the tal1> unfilled 
rectanSle, 


/ 


Define the 
the sho rt > 
rectanSle, 


o u 11 i n e 
filled 


{---- Read the 
for I: = 0 to 15 

{- Initialize 

QpA r ray C1]:=2 5 
for I:=2 to 5 do QpArrayCI] 

{- Set up arrays for the 

Y a r r a y C1 ]: = 0 . 1 5 

Y a r r a y [ 2 3: = 0.1 5 

Y a r r a y C 3 ]: = 0,9 ? 

Yarray[43:=0.9 5 

Y a r r a y [ 5 3: = 0.1 5 

Y f i 11 _ a r r a y : = Y a r r a y I 

Y f i 11 _ a r r a y [ 3 ]: = 0,5 5 
Yf i ll_array [43 : =0,5! 

{-Draw the lower row.. 

for I:= 0 to 7 do beSin 

XarrayEll:=I5 
Xarray[2]:=1+0.95 
XarrayC33s = 1+0.9 5 
X a r r a y [ 4 3: = I 5 
Xarray[ 5 3: = I5 

st rw rite(TewpSt rin s >1tTempInt>1:2 
set_color(l)5 
wo ve(I+0.5-0♦075 >0)1 
Stext(TempStrinS)5 
set_pSn_color(I)> 
set-co1o r(I)5 

po 1y1ine ( 5 >Xar ray>Yar ray )5 
po 1y son.dev_dep ( 5 >Xarray > Yf i 1l_array >OpAt ray )I {draw 

X_LocCI]:=round(XarrayC1])i {store X locations) 

Y_LocC13: = round(YarrayC1])5 {store Y locations) 

end? {for I:=0 to 15) 


{ \ 1 ) 

{ \ Define the X positions ) 

{ > for this particular } 

{/ rectanSle. } 

{ / ) 

{convert to a strinS) 

{set the color for text) 

{wove to just risht of bottom center) 
{label the table entry number) 

{set the color for poly Son fills) 

{set the color for lines) 

{draw the tall unfilled rectanSle) 

and fill shortie) 
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{-Set 

Ya r ray[ 1 ] 
YarrayC2] 
Ya r ray[31 
Yarray[4] 
Yarray[51 


p the 

1,15 

1,15 

1,95 

1,95 

1,15 


arrays for the upper 


row 
{ \ 

{ ' 
{ 

{ , 

{ / 

{ ' 
{ 

{ 


Redefine Y values o n1y 


Redefine Y values only 


/ 


row 


Define the X positions 
for this particular 
rectan Sie, 


Yfill_array:=Yarray5 
Yfi1l_array[31:=1,55 
Yf ill_array[41: = 1,55 

{-Draw the upper 

for I: = 0 to 7 do be3in 

Xa rray C13: = 15 { \ 

XarrayC 2 3 : = 1+0,9 5 { \ 

XarrayC31s = 1+0,3 5 { 

Xar ray C41s = 15 { / 

XarrayC5]s=I5 { / 

st rw r i te (TempSt rin 3 , 1 >Temp In t , 1+8:2) 5 {convert to a strins} 

set_co1or(1)5 {set the color for text} 

move(1+0,5-0*075,1)5 {wove to Just risht of bottom center} 

sftex t (TewpSt r in 3) 5 {label the table entry number} 

set_p3n_color(1+8)5 {set the color for polygon fills} 

set_color(I+8)5 {set the color for lines} 

po1 y 1 ine (5 fXarray ,Yarray ) 5 {draw the tall unfilled rectanSle} 

polyson_dev_dep(5>Xarray>Yfi1l_array ,QpArray)5 {draw and fill shortie} 

X_Loc[1+8]:=round(XarrayC1])5 {store X locations} 

Y_Loc[1+8]:=round(YarrayC1])5 {store Y locations} 

e n d 5 {for I:= 0 to 15} 

{-Start interactivity -'-} 


MenuLine 5 

UpdateCursordableEntry) 5 
D i s p 1 a y S t u f f 5 
Done:=false5 
repeat 

read(Key board >Character)5 

De1ta:=0 5 

case Character of 


{write the menu} 

{initial cursor} 

{initial readouts} 

{not done yet} 

{this starts the actual color selector} 
{Set a character,no echo} 

{start by assuminS zero} 

{analyze the character} 


FS: 

D e 11 a: = 0,015 

{ \ 

} 

BS: 

De 1 ta: = -0» 015 

{ \ Cursor-control 

} 

LF: 

D e 11 a: = 0 ♦ 1 5 

{ / characters 

} 

US: 

Delta:=-0,15 

{ / 

} 

H , H1 

M o d e : = H u e 5 

{Hue-chansins mode} 


L , L1 

Mode:=Lum 5 

{Lurnin o sit y-c h an sin s mode} 


0,01 

Done:=true5 

{Quit the prosram} 


S ,S 1 

Mode:=Sat! 

{Saturation-chanSinS mode} 


E , E1 

C ,C1 

Mode:=Table! 
b e S i n 

{Entry-chanSinS mode} 



if Mode = Copy1 then besin 
Co py _So u r c e:= Tab1eEn t r y 5 
C u r s o rC o1o r:= C o p y-Source! 
UpdateC ursordableEn try)! 
Sotoxy(0 >21)5 
writedUse Knob to select 
writedcopy color to,then 
w r i t e 1 n d CM! 

Mode:=Copy2 

end 


{Have source, will 
{Put it where?} 


copy,} 


{note current entry} 

{twenty-second row, first column} 
location to ') 5 
press') 5 


{do second section next time} 
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{Copy 

{this 


1 old 
{ \ 

{ \ 
{ / 
{ / 


color to> 
location} 

{"erase" old text} 

Get the 
HSL values 
from the 
table. 

{reinitialise cursor color} 
{indicate new cursor position} 
{third section next time} 

{Initiate copy mode} 


) 


else b e S i n 

if Mode=Copy2 then be Sin 
S o t o x y (0 > 21) 5 
w ri teIn(st r rpt( ' ' >79)) 
ini-color.tableiCopy_Source> 

HueMal[Tab 1eEnt ry]* 

SatMal[Tab 1eEnt ry]> 

LumMal[Tab 1eEnt ry])i 

CursorColor:=l5 
UpdateCursor(TableEntry)5 
Mode:=Lastliode 
e n d 

else b e s i n 

LastMode:=Mode! 

Copy_Source:=TableEntry! 
s o t o x y (0 1 21) 5 

write('Use Knob to select color 
w rit e( ' t o be copied > t h e n press')! 
w r i t e 1 n ( ' C ') ! 

Mode:=Copy1 
e n d 5 
e n d 5 
e n d 5 

otherwise 
end! {case} 

{-use delta created above to modify the proper value--} 

case Mode of {what am I doin'!?} 

Hue: be Sin 

H u e M a 1 [ T a b 1 e E n t r y ]: = H u e V a 1 [ T a b 1 e E n t r y 3 + D e 11 a ! 
if HueUaKTableEntry] > 1 then HueMal [Tab leEnt ry ] 
if HueMal[Tab 1eEnt ry]<0 then HueMal[TableEntry] 
end! 

Sat: b e sin 

SatMal[TableEntry3:=SatMa1[TableEntry]+De11 a! 
if SatMai[Tab 1eEnt ry]>1 then SatMai[TableEnt ry] 
if SatMal[Tab 1eEnt ry 3<0 then SatMai[TableEnt ry] 
end! 

Lum: be Sin 

LumMal[Tab 1eEnt ry]:=LumMal[Tab 1eEnt ry]+De1ta! 
if LumMal[Tab 1eEnt ry]>1 then LumMal[TableEnt ry] 


= 0! 
= 1; 


= i; 

=o; 


{adjust it} 
{Keep it...} 
{.♦.in limits} 


{adjust it} 
{keep i t ♦ ♦♦} 
{...in limits} 


1 


if LumMal[Tab 1eEnt rv3<0 then LumMal[TableEnt ry 3:=0 5 
e n d! 

Table>Copyl»Copy2: be sin 
if DeltaOO then be Sin 

if Delta>Q then Tab 1eEntry:=Tab1eEntry + 1 
else TableEntry:=TableEntry-15 
if TableEntry>15 then TableEntry:=155 
if TableEntry<0 then Tab 1eEntry:=05 
Up dateCursor(TableEntry) ! {indicate new entry} 

end! 
e n d! 

end! {case} 


{adjust it} 
{keep it...} 
{...in limits} 


{ 

\ 

Adjust 

} 

{ 

/ 

the value 

} 

{ 

\ 

keep it 

} 

{ 

/ 

in limits 

} 
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set.color.table(TableEntrv» { \ 

HueVal[TableEntry]» < \ 

SatMalCTableEr.tr>'] » { / 

LumUal[Tab 1eEntry])5 { / 

if Tab 1 eEnt ry = 0 then beSir. {BackSround color} 
set.color.modeld)5 {RGB} 

inq.colo r.table(0 .RedBack .GreenBack >BlueBack ) 5 
Backs um: = 05 { \ 

if RedBack<0,5 then BackSum:=4! { \ 

if GreenBack<0.5 then BackSum:=BackSum+25 { / 

if BlueBack<0.5 then BackSum:=BackSum+li { / 

if OldBackSumOBackSum then beSin {Color chanSe} 
case BackSum of 


Modify the 
color map. 


{set RGB values} 
Calculate the } 

backs round color } 
in order to make } 
contrastinS text. } 


0: Lab e 1 Co 1 o r: = Funn y Ch a r CB1 ac k 15 
1: LabelColors=FunnyCharCBlue]5 
2: LabelColor:=FunnyCharCGreen]5 
3: Labe ICo 1 o r: = Funr.yCha rCCyan ] 5 
4: LabeICo1o r:=FunnyCha r[Red]5 
5: Labe ICo 1 o r: = Funn>'Cha r [MaSental 5 
G: Label Color:=FunnyChar[Yellow]! 
7: Labe ICo lor:=Funr.yChar[White] 5 
end! {case BacksSum of} 

MenuLine 5 

OldBackSum:=BackSum 5 
set.color_table(^»l-RedBack. 

1-GreenBack > 
1-BlueBack) ! 

end! {if} 

set_color_model(2)5 
end! {if TableEntry=0} 

D i s p 1 a y S t u f f 5 
until Done! 

w riteIn(FunnyCha rCGreen]>ch r(128))5 


\ 


\ 


Translate the 
\ RGB backs round 
/ sum to a 
complementary 
text color. 


/ 


me n u line} 
future comparisons} 
} 

} 


{print the 
{store for 
{ \ Make pen one 
{ > complementary 

{ / too. } 

{HSL} 

{update alpha information} 
{until user pushes CO]} 

{restore text screen to normal} 


{-Report all this Sood stuff -} 

I n t _ A:=0! 

outPut_esc(Display_Cont>1>0 >Int_A .Real, 
set.colo r.model(1)5 
for I: = 0 to 15 do ins.color. 


.A >E r ro r.Num) 5 
{RGB} 

.tabled >RedUalCI] * 

Greer.MalCI] » 
BlueMalCI])5 


Get the RGB 
definition 
of the color 


Hue 


do 


Sat 
Red 
b e s i n 
') 5 


w r i t e 1 r. ( 'Table 
w rit e( 'Index 
w r i t e 1 n ( ' 
for Is = 0 to 15 
w r i t e (1:3 t ' 
write(HueMal[I]:3:2 >' 
write(SatMal[I]:3:2»' 
write(LumMal[I]:3:2 »' 
w r i t e (R e d M a 1 [ I ]: 3:2 >' 
w r i t e (G r e e n M a 1 [ I ]: 3:2 >' 
w r i t e 1 n (B1 u e M a 1 [ I ]: 3:2) 
end! 

di spI ay_te rm! 
e n d 5 

sraphics.te rm! 
end. 


Lum 

Green 


) ! 
) 5 


Blue')5 


) ! 


Write the color 
map entries as 
both HSL and 
RGB numbers. 


/ 


{deactivate the display} 


{terminate the 
{Main ProSram} 


Sraphics system} 
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CsizcProg 


program CsizePro$(output)5 

import dsr 1 _ 1 ib » d31 _in h ! { 3 e t Graphics routines} 

const 


Crt= 3! -[address of internal CRT} 

Control= 05 {device control! 0 for CRT} 

var 

Error: inte3er! {variable for initialization outcome} 

If J: integer? {utility variables} 

St m3: strinst10]5 {temporary ho Id in 3 place for strin3s} 

^include 'DGLPRG :ConvVtoW '$ {virtual-to-world conversion} 

$pa3e$ {********************************************************************} 
procedure CharSize(Hei3htt AspectRatio: real)? 

{ ------- - -- } 


{ This procedure defines character cell size and the puts the Width and } 
{ HeiSht values into siobal variables for later use. The a rsuments passed } 
{ in are the height of the character cell in VIRTUAL coordinatest and the } 
{ aspect ratio of the character cell. The values for the window limits } 
{ may be anythin*! they are taken into account and do not affect the size } 
{ of the charactersf since they are defined in virtual coordinates. This } 
{ proceduref alons with LorS and L d i r» define 3lobal variables for use by } 


{ Glabel. } 

{ ---------- } 


var 

Width: real 5 

X0» YO: real! 

XIf Yl: real 5 

b e 3 i n 

Conve rtVirtualToWo rld(0 fO fXO fYO)5 
ConvertVirtualToWorldd 1 1 »X1 *Y1) 5 
Hei3ht:=Hei3ht*(Yl-YO)5 


{temporary spot for width} 

{QfO (virtual) in world} 

{1t1 (virtual) in world} 

{body of procedure "CharSize"} 
{convert 0*0 in virtual to world} 
{convert 1*1 in virtual to world} 
{convert hei3ht in virtual to world} 


Width:=Hei3ht*AspectRatio*(Xl-XO)/(Yl-YO)5 {convert width in virtual to world} 


{invoke the parameters} 

{procedure "CharSize"} 

{ft*#***##*#**####*#*#**#*#**********##*#***#**#*##**#*#*******#**#*##} 


set_char_size(Width *Hei3ht)5 
end 5 
$pa3e$ 
b e 3 i n 

3raphics_init! 

display_init(CrtfControlfError) ! 
if Error=0 then be3in 
set.aspect(511f389)5 
set_window(l# 2 »100»0)! 
for I: = 1 to G do be3in 
CharSize(1*1*0,01»0♦S >5 
m o v e ( 1fI * I * I*0 ♦ 4+1)5 
s t rw r i t e (S t rn 3 f 1 »J »I * 1 : 0 ) ! 
3text(St rn3+ ' 1 ') ! 
end! {for i} 
end! {Error=0?} 

3raphics_term! 
end. 


{body of pro3ram "CsizePro3"} 
{initialize the 3raphics system} 
{which output device?} 

{output device initialization OK?} 
{use the whole screen} 

{scale the window for the data} 
{six different character sizes} 
{install character size} 

{move to a appropriate place} 
{convert number to strin3} 

{label the strin3} 


{terminate the 3raphics packa3e} 
{pro3ram "CsizePro3"} 
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DataPoint 

$paSe$ {********************************************************************> 
function DataPoint(I: integer): real 5 {function that returns the y-ualues> 

{ --------- > 

{ This function returns one of the one hundred values in the structured > 
{ constant "MoltaSes" every time it is called. This function is called by > 
{ the "Progressive Example" programs in the Graphics techniques chapters. } 

{ . } 

type 

V o11 s T y p e = array Cl..1001 of real 5 

const 

UoltaSes= OoltsTypeCO,1610* 0,1625* 0,1625* 0,1628* 0.1636* 

0♦1G31> 0.1G27* 0 * 1G08 * 0.1G10 * 0.1 GOG * 

0,1607* 0,1617* 0.1614* 0,1626* 0,1634* 

0,1640* 0,1G56 > 0,1660* 0.1G44 * 0,1651 * 

0.1635 * 0.1641 * 0.1,628* 0.1G19* 0.1G30, 

0,1624* 0.1627* 0,1644* 0,1644* 0,1657* 

0.1660* 0»16 7 0 * 0.1672* 0.1666* 0.1658* 

0,1662* 0,1646* 0,1633* 0,1634* 0,1636* 

0.1645* 0,1652* 0,1656* 0,1677* 0,1689* 

0,1680* 0,1696* 0,1680* 0,1674* 0,1677* 

0,1669* 0,1655* 0,1665* 0,1662* 0,1667* 

0,1668* 0,1681* 0,1688* 0,1687* 0,1707* 

0,1716* 0,1716* 0,1694* 0,1698* 0,1683* 

0,1683* 0,1671* 0,1681* 0,1683* 0,1684* 

0.1681* 0,1698* 0,1705* 0,1723* 0,1730* 

0,1734* 0,1714* 0.1722* 0,1716* 0.1696* 

0,1702* 0.1699* 0,1684* 0,1706* 0,1696* 

0,1715* 0,1730* 0,1737* 0,1739* 0,1751* 

0.1732* 0,1747* 0,1729* 0,1717* 0,1710* 

0.1707* 0,1706* 0,1709* 0,1713* 0,17201! 
be Sin {body of function "DataPoint"} 

DataPoint:=0oltasesCI!5 {assiSn it to the function name} 

end! {function "DataPoint"} {return} 


DrawMdPrg 


pro Sram D rawMdP rS(output) ! 

{prosram name same as 

file name} 

import d S1 _ 1 i b ! 


{access the necessary 

procedures} 

const 

P o 1 y S o n s = 

100! 

{how many poly sons?} 


S i d e s = 

3! 

{how many sides apiece 

?} 

c rt = 

3! 

{device address of Sraphics raster} 

c o n t r o 1 = 

0! 

{device control word! 

iSnored for CRT} 

type 

short-in t = 

-32768,,32767! 

{16-bit inteser} 



Drawin3ModeType= (Dominant *Erase >Complement)5 

Display6tates=(0ff>0n) ! 
v a r 

X: array CO..Polysons-l*l,,Sides! of short-int! 

Y: array CO»»PolySons-1*1.«Sides1 of short-int! 

Dx» Dy: array Cl,.Sides! of short-int! 

Poly* Side: short-int 5 {loop control variables} 

DrawMode: DrawinSModeType 5 

Temp: short-int! {temporary holding area} 

NewfPrevious: short-int! {for efficient use of arrays} 

seed: inteser! {random number seed} 

error: integer! {display_init return variable 5 0 = oK} 
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$pa3e$ {a****#*******#**********#####*####*****###***#*#*#**#***#**#***#*##*) 


procedure AlphaCState: DisplayStates) 5 

{ ----- > 

{ This procedure turns the alpha raster on or off. > 

{------- -- -} 


const 

AlphaRaster= 10515 {Mnemonic better than masic number) 

var 


AlphaOn: array Cl..11 of integer? { \ This is all stuff that ) 

Rarray: array C1..1] of real? { > is needed by the ) 

Error: integer! { / "outPut_esc" procedure. > 

b e * i n {procedure "Alpha") 

if State = 0n then AlphaOnC11: = 1 
else AlphaOnC1]5=05 

outPut_esc(AlphaRaster>l»0 »A1phaOn »Rarray(Error)5 

if ErrorOO then writeln('Error ' #Error:0#' in procedure "Alpha".') 5 
end? {procedure "Alpha") 

$pa se$ {**#*#**#**##******####***#***##*#*#*######**#**#**####*#*#####*#*##*) 
procedure Draw insMode(Mode: DrawinSModeType) 5 


{ ------- > 

{ This procedure selects drawin* modes for a monochromatic CRT. ) 

{ --- ) 


const 

SetDrawin*Mode= 10525 


{mnemonic better than masic number) 


i.i a r 

D rawMode: 

R a r r a y : 
Error: 
b e * i n 

case Mode of 
Erase: 
Dominant: 
Complemen t 
e nd 5 {case) 


array Cl 
array Cl 
integer! 


1] 

1] 


of 

of 


integer? { \ This is all stuff that 

real! { > is needed by the 

{ / "o ut p ut _ e s c" procedure 

{procedure "D rawin*Mode" ) 


DrawModeC1 1 
DrawModeC1] 
DrawModeC11 


-.11 
= 0 5 
= 35 


\ 


/ 


Conuert DrawinuMode enumerated 
type into the appropriate 
value for OUTPUT_ESC procedure 


/ 


outPut_esc(SetDrawin*Mode»l»0»DrawMode>Rarray»Error)5 {set it) 

if ErrorOO then writeln ('Error '»Error:0»' in procedure "DrawinSMode". ') 5 
end 5 {procedure "DrawinSMode") 

$pasfe$ {*****************************************«•**************************) 
function Rand: short_int5 


beSin {function "Rand") 

Seed:=((Seed+13579)*39777) mod 100005 {make new seed) 

Rand:=Seed! {return current value of seed) 

end! {function "Rand") 

$pa*e$ {a*#****************##***#*****###**#**##****##*****###*****###******) 
procedure DefineDeltas! 


var 

Side: s h o r t _in 15 

be*in {body of procedure "DefineDeltas") 

for Side: = 1 to Sides do besin {for each vertex) 

DxCSide]:=Rand mod 5+25 {magnitude of this dx) 

if Rand> = 5000 then DxCSide]:=-DxCSide] 5 {si^n of this dx) 

DyCSidel:=Rand mod 5+25 {magnitude of this dy) 

if Rand> = 5000 then DyCSide]: = -Dy[Side]5 {si*n of this dy) 

end! {for side) 
e n d 5 


{body of procedure "DefineDeltas") 
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$paSe$ {#**#*##*####*#*#*###***##*####***#**#####*###*#*##*#*######*########} 


b e sf i n 

D rawMode:=Dominant5 
Seed:=11735 
sfraphics-init! 

di spI ay_init(c rt tcont ro1 terror) ! 
if e r ro r = 0 then besfin 
set-aspect(511>389)5 
s e t_win d o w(0 > 511 1 0 1 389) i 
AlphatOff ) 5 

D raw in SMode(D rawMode)5 
for Side:=l to Sides do heSin 
XCOtSide]:=Rand mod 5115 
YE0 tSide]:= Rand mod 389 5 
if Side = 1 then 

int.moue(XCO tSidel»YC0#Side3) 
else 

in t _1in e(X C 0 tSidel »Y C 0 tSidel) I 
end? {for side} 
if Sides>2 then 

i n t _ 1 i n e (X C 0 »1 ] > Y [ 0 > 11) 5 
DefineDeltas! 

for Po 1 y : = 1 to Polysfons-l do be i in 
for Side : = 1 to Sides do be 3 in 

Temp: =XC Poly-1tSifle3+Dx[Side ] 5 


{body of program "DrawMdPrS"} 
{specify drawing mode} 
{initialize random number seed} 
{initialize Graphics library} 
{initialize CRT} 

{if no error occurred***} 

{use the whole screen} 

{one user unit=one pixel} 

{turn off the alpha screen} 
{select specified drawing mode} 
{define the first polygon} 
{define X c o mpone n t} 

{define Y component} 

{ \ } 

{ \ Move to the first } 

{ > point t and draw to } 

{ / al1 the rest ♦ } 


{if simple line » don't close} 
{define dx and dy for each vertex} 
{draw all the polygons} 

{each vertex of each polygon} 
{avoid recalculation} 


\ 


Is X off 
screen? 


/ 


{calculate next 
recalculation} 


\ 


Is Y off 
screen? 


/ 


if Temp>511 then 
DxCSide]:=-DxESide3 
else if Temp<0 then 
DxCSide]:=-DxCSide]5 
XCPoly fSidel: = XCPoly-ltSidel+DxCSidel5 
Temp;= Y C P o1y-1tSidel+DyCSide35 {avoid 

if Temp>389 then 
DxCSide 3:=-DyCSide] 
else if Temp<0 then 
D y C S i d e 3: = - D y C S i d e 3 5 
YCPoly >Side 3: = YCPo1y-1tSide3+DyCSide3 5 
if Side = 1 then int_move(XCPolytSideltYCPolytSidel) 
else in t _1in e(X C P o1y tSidelt Y C P o1y tSidel) ! 
end; {for side} 
if Sides>2 then 

int_line(XCPolyt13tYCPoly 
end! {for poly} 

N e w: = 0 5 

while true do be Sin 

if New = 0 then Previous: = Po1 
else P r e vio u s: = (P r e vio u s +1) 


the 


the 


{calculate next 
{ m o v e 
{ d raw 


} 

} 

} 

} 

x} 

} 

} 

} 

} 

y} 

to first pointt} 
to all the rest} 


{if simple line t don't close polygon} 


til) 


' 4 o n s -1 
mod PoT 


if DrawMode=Dominant then DrawMode 
DrawinSMode(DrawMode)5 
for Side: = 1 to Sides do beSin 
if Side = 1 then 

in t_mo v e(X tNew tSide 3 tYCNew tSide 3) 
else 

int_line(XCNewtSidel 
end! {for Side} 
if Sides>2 then 

int_line(XCNew 1 13tYCNewtll)! 
if DrawMode=Erase then DrawMode 
DrawinsfMode (DrawMode) ! 


{start re-use at entry 0} 

{ad infinitum*..} 

{start r e-u sin S over} 

Sons! {re-use next entry} 

Erase! { \ If Dominant* to sale state} 
{select specified drawing mode} 

{erase the oldest line} 


CNewtSidel) 


{ \ Move to the } 

{ \ first pointt } 

{ / draw to all the } 

{ / rest. } 


{if simple line t don't close polygon} 


Dominant! { \ If Eraset t o sf sf 1 e state} 
{select specified drawing mode} 
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for Side: = 1 to Sides do be i in 
Te fnp: = XC P r e v i o u s >S i d e ] +Dx C S i d e ] 5 
if Temp>511 then 
DxCSide]:=-DxCSide] 
else if Temp<0 then 
DxCSide]: = -Dx CSide]5 
XCNew»Side3:=XCPrevious,Side3+DxCSide3; 
Temp:=YCPreuious»Sid e 3 +D yC Sid e 35 
if Temp>389 then 
DxCSide]:=-DyCSide3 
else if Temp<0 then 
D y C S i d e 3: = - D v C S i d e 3 5 
YCNew>Side3:=YCPrevious>Side3+DvCSide3 ! 
if Side = 1 then int_move(XCNew,Side3,YCNew,Side3) 
else irit_l ine (XCNew #Side3 > Y C N e w > S i d e 3) 5 
e n d 5 {for side) 
if Sides>2 then 

int_line(XCNew,13> Y C N e w »13) i 
New:=(New+1) mod Poly Sons? {next one to r 

end? {while) 

end! {error=0?) {end of condit 

3raphics_term; {terminate Sra 

end. {program "DrawMdPrsf") {end of proSra 


{ \ 

{ \ 

{ ' 
{ 

{ 

{ 

{ 

{ 

{ 

{ 

{ 

{ 

) { 

{ , 
{ / 

{ / 

{/ 

re-use) 


Draw the 
n e w 1 i n e 
\ the same 
/ way as 
before. 


{end of conditional code) 
{terminate Graphics library) 
{end of program) 


) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 


FillProg 

program Fi1 IPro$(output)5 {program name same as file name) 

import 

d*l_lib>dtfl_types»dsl_Poly»dsl_in«i; {access the necessary procedures) 
const 


MaxPoints= 

27 5 

{numbe r 

of points in arrays) 

C rt = 

35 

{device 

address of Graphics raster) 

Cont ro 1 = 

o; 

{device 

control word? iSnored for CRT) 

type 




Reals = 

array Cl..MaxPoints3 of real; 

{to contain X and Y values) 

W o r d = 

-327G8. ♦ 327S7 5 


{ 1B - bit word) 

I n t e S e r s = 

array C1 ♦ .Maxpoints3 of Word? 

{to contain op, selectors) 

const 




X u a 1 u e s = 

RealsC 1.5 , 2.5, 

2.5, 1 , 5 >-1 , 5 ,- 

2,5, - 2.5, -1.5, {OctaSon) 


-2.5 , 2.5, 

2,5 ,-2,5 ,-2,5 , 

{Box) 


-2,5 >-4,5 »- 

2.5 ,-5.0,-4.0 , 

{Left les) 


2.5, 4,5 , 

2,5, 5.0, 4.0, 

{ RiSht leS) 


- 0 , 5 , - 1 . 0 , 

1.0, 0,535 

{Nozzle) 

Y v a 1 u e s = 

RealsC 1,0, 2,0, 

3.0, 4.0, 4,0, 

3.0, 2.0, 1.0, { 0 c t a S o n ) 


1.0, 1.0,- 

2.0,-2.0, 1.0, 

{Box) 


-2,0 ,-4,0 , 

0 « 0 , - 4 ♦ 0 , - 4 » 0 , 

{Left les) 


-2.0 ,-4,0 , 

0.0 , - 4,0 , - 4,0 , 

{RiSht leS) 


-2,0 ,-3.0,- 

3. 0,-2.03; 

{Nozzle) 

OpCode5= 

Inte sfe rs C2,1 ,1 ,1 , 

1 ,1 ,1 ,1 , 

{OctaSon) 


2,1 ,1 ,1 , 

1 , 

{Box) 


2,1 ,1 ,2, 

1 , 

{Risht 1e s) 


2,1 ,1 ,2, 

1 , 

{Left lest) 


2,1 ,1 ,13 

; 

{Nozzle) 

var 




Error: 

i n t e s e r; 

{display 

_init return variable; 0 = oK) 

I: 

integer', 

{loop control variable) 

LemX, LemY: 

Reals 5 

{so we can pass it to "polygon") 

OpSelecto rs: 

Integers! 

{ditto) 


Points: 

intesfer? 

{ditto) 
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$paSe$ {*******#****#*#•#****##*****#*#*###*****#*###**#****#***#***#*#*#**#*} 


b e s i n 

LemX:=Xvalues 5 
L e m Y s=Yu a lues 5 
OpSelectors:=OpCodes! 

Points:=MaxPoints5 

Sraphics-init! 

display_init(Crt>Control>Error)5 
if Er ro r = 0 then be3in 
set-aspect(511>389)5 
s e t _win do w(-7♦5 >1B♦5 >-10 >10) ! 
5et_ps(ri_st'/le (14)5 

poly Son(Points >LemX >LemY >0pSe1ecto rs ) 
set-window(-18,5 >7 >-10 >10)5 
s e t_p Sn_t ab 1 e (14 >0 ♦ 51 >0 > 1) 5 
set_c o1o r_t ab1e(1>0.125 > 0»125 > 0»125)5 
set_pSn_co1o r(1) 5 


{body of program "FillProS"} 

{ \ Put into uariable array so } 

{ > it can be passed by > 

{ / reference into the DGL proc.} 
{put constant into an array uariable! 
{initialize Graphics library} 
{initialize CRT! 

{if no error occurred...} 

{use the whole screen} 

{invoke isotropic units} 

{crosshatched fill} 

5 {draw the lines} 

[invoke isotropic units} 

{set the "do a fill" f1 a a} 

{specify 12,57. Sray scale} 

{use specified "color"} 


polysfon_dev_dep(Points >LemX »L e m Y >QpSe lecto rs ) 5 {draw the lines} 


end 5 {Error = 0?} 


{end of conditional code} 


$ raphics_te rm 5 


{terminate Graphics library} 


end. {program "FillProS"} 


{end of program} 


FillGraph 

program Fi11Graph(output)5 

import dsf 1 _ 1 ib t dsf 1 _types » dsl.poly? 

const 

CrtAddr= 35 

Control Word 3 05 

type 

RDataType= array CO.,121 of real! 

WDataT'/pe= array [0. .123 of -32788,,32787 5 

const 

Xvalues= RDataTypeCO >1>2 >3 >4 >5 >8 >7 >8 >9 >10 >10 >03 5 

Yva 1ues = RDataTypeC2>4 >3 >8 >5 >5 >3 >7 >5 >8 >8 >0>035 

OperationSelectors 3 WDataType[2>l>1 >1 >1>1 >1 >1 >1 >1 >1 >1 >13 5 

war 

ErrorReturn: integer 5 

X> Y: RDataType? 

OpSel: WDataType! 

$pase$ {********************************************************************} 
be Sin {pro Sram "FillGraph"} 

Sraphics-initi 

display _init(CrtAddr>ControlWord>ErrorReturn)5 
if ErrorReturn=0 then beSin 
set_aspect(511>389)5 
s e t _win d o w(0 >10 >0 >10)5 

m o v e (0 > 0) 5 1 i n e (0 > 10) 5 1 i n e (10 > 10) 5 1 i n e (10 > 0) 5 1 i n e (0 > 0) 5 

X:= Xva 1ue s 5 Y:=Y v a 1u e s 5 QpSel:=OperationSelectors? 
set_psn_table<1>0,333>17,34>1)5 
s e t _ p S n _ s t y 1 e (1) 5 
po 1 y S on (13 >X > Y >0 pB e 1) 5 
end? {ErrorReturn=0?} 

Sraphic s_t e rm5 
end. 


{proSram "FillGraph"} 
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GstorProg 

$5'/sproS on$ -Cso we can define array addresses} 

program GstorProS(Key board>outPut)5 {pros ram name same as file name} 
label I! 

import d S1 _ 1 i b * d S1 _ i n q 5 {access the necessary procedures} 

const 

C r t = 35 {device address of Graphics raster} 

Control 3 05 {device control word! iSnored for CRT} 

GRasterAddr= hex( '530000') 5 {address of Graphics memory} 

GRasterSize 3 62405 {32-bit inteSers in Graphics raster} 

Ratio 3 1.31362467886! {aspect ratio of the Model 36 CRT} 

type 

GRasterType 3 array [1..GRasterSizel of integer! 

HJust ifyType= (Left YHCentered»RiSht)5 
MJus tif y Ty pe 3 (Bo 11 om *VCent e re d*To p) 5 
Display States=(Off>On)5 

A n S T y p e 3 (DeS >Rad *Grad ) 5 {used by procedure Ldi r} 

RoundType 3 (Up* Down* Near)! {used by function Round2} 

Str255= strinSC255]5 {used by procedure Glabel} 


va r 


Error: 

i n t e S e r 5 

{display_init return variable* 0 = 

ok} 

Decade > Units: 

i n t e S e r 5 

{for loSarithmic X-axis} 


X *Dx: 

real 5 

{x-axis variables} 


Xmin>Xmax »X ran Se : 

i n t e S e r 5 

{more x-axis variables} 


Y > D y : 

real 5 

{y-a xis variables} 


Ymin >Ymax *YranSe: 

i n t e S e r 5 

{more y-axis variables} 


I: 

i n t e S e r 5 

{utility variable} 


St rn s: 

St r255 5 

{another utility variable} 


Character: 

char* 

{and yet another} 


Temperature: 

real 5 

{need a 1 a rSe r ran Se than an inte Se r} 

Old X , Old Y: 

real 5 

{last point drawn to} 


GRaste rEGRasterAddrl: 

GRasterType! 

{actual Sraphics raster} 


Screen: 

GRaste rType5 

{user's screen im a S e} 


k e y b o a r d : 

text 5 

{allow GETs from the keyboard} 


CharWidth *CharHeiSht: 

real 5 

{ \ These are slobal variables 

} 

HJustificat i on : 

HJustifyType 5 

{ \ used by the CharSize/ 

} 

VJust ification : 

UJustif yType 5 

{ / LabelDirection/LabelJustify/ 

} 

CharTheta: 

real 5 

{ / Glabel series of procedures. 

} 

ClipXmin* ClipXmax: 

real 5 

{soft clip limits in x} 


ClipYmin* ClipYmax: 

real 5 

{soft clip limits in y} 



$ inc1ud e 'DGLPRG:Con vMtoW '$ 

$paSe$ {********************************************************************} 
procedure CharSize(Hei Sht* AspectRatio: real)! 

{ . - . - . - . } 

{ This procedure defines character cell size and the puts the Width and } 

{ Heisht values into siobal variables for later use ♦ The arguments passed } 

{ in are the heisht of the character cell in VIRTUAL coordinates* and the } 

{ aspect ratio of the character cell. The values for the window limits } 

{ may be any thins 5 they are taken into account and do not affect the size } 

{ of the characters* since they are defined in virtual coordinates. This } 

{ procedure* alonS with LorS and Ldir* define Slobal variables for use by } 


{Glabel. } 

{ ------- } 
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uar 

Width: real! 

XO f YO: real? 

XI» Yl: reali 

b e 3 i n 

Conv e r t M ir t ua 1To Wo r 1d ( 0 > 0 >XO > YO) 
C o n v e r t V i r t u a 1T o W o r 1 d (1 * 1 > X1 > Y1) 
Hei3ht:=HeiSht*(Yl-YO >! 
Width:=Heisht#AspectRatio*(X 
set_char_size(Width>Hei3ht)5 
end? 


{temporary spot for width} 

{0»0 (virtual) in world} 

{ 1 f 1 (virtual) in world} 

{body of procedure "CharSize"} 

{convert 0»0 in virtual to world} 
{convert 1 * 1 in virtual to world} 
{convert he i 3ht in virtual to world} 

1 -X0)/(Y1 -Y0)5 {convert width in virtual to world} 
{invoke the parameters} 

{procedure "CharSize"} 


$pa3e$ {a #**#*#*****#**#*#**#*****##**#*#*#**#*#*********** ft#****#***#*#####} 
procedure LabelDirection(Direction: real; Units: An3Type)5 


{ This procedure is used in conjunction with LabelOri3in> CharSize and } 
{ Glabel. It sets the labellinS direction to be used > and places the } 
{ direction into a Slobal variable so Glabel can use it. } 
{--------} 


const 

De3_per_rad= 57.29577351315 {180/pi: for convertinS de3rees to radians} 
Grad_per_rad= S3.SB 197723685 {200/pi: for convertinS 3rads to radians} 
be3in {procedure "LabelDirection"} 

case Units of 

De3: Direction:=Direction/De3_per_rad; {deSrees to radians} 

Rad: 5 {correct units already} 

Grad: Di rection : =Di re<>tion/Grad_pe r_rad 5 {3rads to radians} 
end? {case} 

CharTheta:=Direction5 {put into a slobal variable} 

set_text_rot(cos(CharTheta)»sin(CharTheta)); {invoke the new text direction} 
end? {procedure "LabelDirection"} 

$paSe$ {******************************«■*«•***********************************} 


procedure Labe 1 Justify(HJust: HJustifyType5 OJust: MJustifyType)? 

{ ----- ---- - --} 

{ This procedure is used in conjunction with procedures CharSize > } 

{ LabelDirection> and Glabel. This Just puts a value into slobal } 

{ variables which will be subsequently used by Glabel. } 

{-...-.......} 

beSin {procedure "Label Justify" } 

HJustification:=HJust; 

^Justification:*MJust; 


end? {procedure "LabelJustify"} 

$pa3e$ {********************************************************************} 


function Atari (Y> X: real): real; 

{ .. . . . . .- .. } 

{ This function returns the value of the arctanSent of Y/X > placins it } 
{ in the correct quadrant. If Y and X are both zero> the result is zero. } 
{..........} 


const 

Pi = 3,1/1159285359; {pi} 

be Sin {function "Atan"} 

if X = 0♦0 then At an: = (Pi/2+Pi*o rd(Y<0.0))#o rd(Y<>0.0) 
else Atan:=a ret an(Y/X)+Pi*o rd(X<0.0)+2#Pi*o rd((X>0.0) and (Y<0.0))5 
end? {function "Atari"} 
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$paSe$ {*###****######*******##*#***********##***•#**###***#***#***#*********} 


procedure Glabel(Text: Str255)5 

{ ---- ) 

{ This procedure labels a string of text at the current pen position. > 

{ It taKes into account the current label direction (set by procedure > 

{ "LabelDirection "t the current character size (set by procedure > 

{ "CharSize") > and the current label justification (set by procedure } 

< " L a b e 1J u s t i f y") ♦ } 

{.> 

const 


CharSizeCode 5 2505 {mnemonic better than masic number) 

Cu r rentPosition= 259 5 {ditto) 

type 

Positions 5 (X > Y)5 

PositionType= array [Positions] of real! 

CharAttributes 5 (WidthfHeiShth)! 

CharAttrT'/pe 5 array [CharAttributes] of real! 


{length and height of character strinS) 


{for rectanSular-to-Polar conversion) 


packed array [1..1] of char? 
array El* *11 of inte Se r 5 
PositionType! 
intesfer! 


.1] of char? { \ These are the 

integer! { \ sundry items 

{ / needed for the 

{ / call to "inp_w< 

{procedure "Glabel") 
ursize »Error)i {Set pen position) 
>»' in "Glabel".') 5 


Chars: integer! 

Charsize: CharAttrType5 

Len>HeiSht: real 5 {lenSth and height of character strinS 

D x > D y: real! 

RtTheta: real! {for rectanSular-to-Polar conversion) 

Pac: packed array [1..1] of char! { \ Thesearethe 

Iarrav: array [ 1 ♦ * 1 ] of inteSer! { \ sundry items 

Position: PositionType! { /needed forthe 

Error: inteSer! { / call to "inq-ws" 

betfin {procedure "Glabel") 

inq_ws(CharSizeCode>0>0>2>Pac»Iarray>Charsize»Error)! {Set pen position) 
if ErrorOO then wri teln( 'Error ' >Error :0>' in "Glabel".')! 

Chars:=strlen(text)5 

Len:=Charsize[Width]*(7*Chars+2*(Chars-1))/95 {lenSth minus inter-char Sap) 
HeiSht:=Charsize[Heishth]*8/155 {heisht minus inter-line Sap) 

Dx:=Len#(-ord(HJustification)/2)5 
Dy:=HeiSht*(-o rd(VJustification)/2)5 

R:=ssrt(Dx#Dx+Dy*Dy)5 { \ Convert to polar coordinates so 

Theta: 5 At an(Dy*Dx) ! { / rotation is easy. 

Theta:=Theta+CharTheta ! {add the LabelDirection ansle) 

Dx:=R#cos(Theta) ! { \ Convert R and the new Theta back 

Dy:=R*sin(Theta) ! { / to rectanSular coodinates. 

inq_ws(CurrentPosition»0»0»2>Pac»Iarray»Position»Error)5 {Set pen position 
if Er ro r 5 0 then beSin 

mo ve ( Pos i t i on [)<]+Dx »Pos i t i on [ Y]+Dy ) 5 {move to the new startinS point) 
Stext(text) ! 
end {Error 5 0?) 

else write1n('Error'>Error:0>' in "Glabel".')! 

end! {procedure "Glabel") 

$paSe$ {****#****#*##***##***#*#*#*##***#***#****************##**#****#***#*) 
procedure MainTi11e(X> Y: real! Title: Str255)! 


{ \ Convert to polar coordinates so ) 
{/ rotation is easy. ) 
{add the LabelDirection ansle) 

{ \ Convert R and the new Theta back ) 
{ / to rectanSular coodinates. ) 
Position»Error)5 {Set pen position) 


{ This procedure writes a larSe label for the main title of a plot. 

{- .. .--- . 

besin {procedure "MainTitle") 

CharSize(0.06 >0.6)5 

LabelDirecti on(0 >DeS)5 

Labe 1 Justify(HCente red >Top)5 

m o v e (X t Y) 5 

Glabel(Title) ! 

end! {procedure "MainTitle") 
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$paSe$ {****#*#****#*##*#*******#*#********#******#******##**#**##*##*#*****} 
procedure XAxisTitle(X» Y: real? Title: Str255)! 

{. . .--> 

{ This procedure writes a s id all label for the X-axis title of a plot* > 

{------> 

besin {procedure "XaxisTit1e") 

CharSize(0.04>0.G)5 

LabelDirection(0»Des)5 

Lab el Justify (HCente red ^Bottom) 5 

in o v e (X t Y > 5 

Glabel(Title) 5 

end? {procedure "XaxisTitle" } 

$paSe$ {##****#*####*##########****########****##**####***#*****#####*######) 
procedure YaxisTitle(X»Y: real? Title: Str255)5 


{ This procedure writes a 1 a r S e label for the Y-axis title of a plot. > 

{-----> 

besin {procedure "YaxisTitle"} 

CharSize(O.Ofl>O.S)5 

LabelDirecti on(90 >DeS)5 

LabelJustify(HCentered»T op)5 

id o v e (X t Y) 5 

Glabel(Title)5 

end? {procedure "YaxisTitle") 

$paSe$ {********************************************************************> 
procedure 01 i p L i id i t (Xmin t Xmax > Ymin > YiDax: real)? 


{procedure "YaxisTitle") 


{ This procedure defines the 
{ soft clip limits are* 


four Slobal variables which specify where the 


besin 

if Xmin<Xmax then be Sin 
01ipXmin:=Xmin5 
ClipXmax:=Xmax 5 
end 

else b e s i n 

01ipXmin:=Xmax 5 
01ipXmax:=Xmin 5 
end! 

if YmirKYmax then be Sin 
01ipYmin:=Ymin 5 
ClipYmax:=Ymax 5 
end 

else b e S i n 

ClipYmin:=Ymax ! 

01ipYmax:=Ymin5 
e n d ! 
end! 


Force the minim urn soft 
clip limit in X to be 
the smaller of the two 
X values passed int o 
the procedure* 


Force the minimurn soft 
, clip limit in Y to be 
\ the smaller of the two 
/ Y values passed into 
' the procedure. 
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$PaSe$ { ********************************************************************} 


procedure ClipDraw(Xl> Y1» X2 > Y2: real)! 

{ ............ > 

{ This procedure takes the endpoints of a line» and clips it* The soft } 
{ clip limits are the real Global variables ClipXmin> ClipXmax» ClipYmin> > 
{ and Cl ipYmax. These may be defined through the procedure Cl i pLimi t. > 

{ ------- } 

label 
1 ! 


type 

EdSes= (Left»RiSht >Top .Bottom) ! {possible edSes to cross} 

Out Of Bound s= set of EdSes! {set of edsfes crossed} 

var 

Out .Out 1>0ut2:0ut0fBounds ! 

X. Ys real! 


{ 


procedure C o d e(X » 
beSi n 
0 u t: = E 3 ! 

if xCClipXmin then 
else if x>Clip)<max 
if y<C1ipYmin then 
else if y>ClipYmax 
end! 


Y: real! var Out: OutOfBounds) ! 

{nested procedure "Code"} 
{null set} 

Out: = C1ef13 {off left edse?} 

then 0 u t: = C r i S h t ] 5 {off risht e d S e ? } 

Out:=0ut+[bottom] {off the bottom?} 

then Out:=0ut + Ctop] ! {off the top?} 

{nested procedure "Code"} 


} 


{ . - ---- 

b e S i n 

Code(XI»Y1.Out 1) 5 
Code(X2 >Y2 >Qut2) ! 

while (OutlOCl) or (0 u 12 < > C 3) do b e S i n 
if (Outl*Out2)<>[1 then Soto 1! 
if 0u11< >C 3 then 0ut:= 0u11 
else 0 u t:= 0 u 12! 
if left in Out then b e S i n 

y : = Y1 + ( Y 2 - Y1) * (C1 i p X m i n - X1) / (X 2 - X1) 
x:= C1ipXmin ! 
end {left in Out?} 
else if risht in Out then b e S i n 

y:=Y1+(Y2-Y1)*(ClipXmax-XI)/(X2-X1) 
x:= C1ipXmax ! 
end {r i sht in Out?} 
else if bottom in Out then b e S i n 

x:=X1+(X2-X1)*(C1ipYmin-Y1)/(Y2-Y1) 
y:=C1ipYmin 5 
end {bottom in Out?} 
else if top in Out then be Sin 

x:=X1+(X2-X1)*(C1ipYmax-Y1)/(Y2-Y1) 
y:=C1ipYmax 5 
end! {top in Out?} 
if Out = Out 1 then be Sin 

X1: = x ! Y1: = y ! Code(x>y .Out 1) ! 

end {0 u t = 0 u 11?} 
else b e s i n 

X2: = x ! Y2: = y ! Code(x»y.Out 2)5 

end! {else b e s i n } 
end! {while} 
m o v e (x 1 > y 1) ! 

1 i n e ( x 2 > y 2) 5 

1: end! {procedure "ClipDraw"} 


.-...--} 

{body of procedure "ClipDraw"} 

{fiSure status of point 1} 

{fisure status of point 2} 

{loop while either point out of ranse} 
{if intersection non-null. no line} 

{Out is the non-empty one} 

{it crosses the left edse} 

5{ad just value of y appropriately} 

{new x is left edSe} 

{it crosses risht edse} 

5{adjust value of y appropriately} 

{new x is risht edse} 

{it crosses the bottom edse} 

5{adJust value of x appropriately} 

{new y is bottom edSe} 

{it crosses the top edSe} 

!{ad just value of x appropriately} 

{new y is top edse} 


{redefine first end point} 


{redefine second end point} 


{if we Set to this point. the line*..} 
{♦♦.is completely visible. so draw it} 
{retu rn } 
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$pa 3 e$ {a**##****#*********#****##*********##*#*********##***#*#*######**##*} 


function RoundZ(N > M: real? Mode: RoundType): real 5 

{.- . — . - . - . > 

{ This function rounds "N" to the nearest "M"t according to "Mode"* This } 
{ function works only when the argument is in the ran3e of MININT..MAXINT. > 
{-.....-.> 


const 

e p s i 1 o n = 1E -10 5 

uar 

Rounded: real! 

Negative: boolean? 

b e 3 i n 

Ne 3ative: = (N<0♦0)5 


{roundoff error fudse factor} 

{temporary holdins area) 
{flaS: "It is neSatiue?"} 
{body of "RoundZ"} 

{is the number neSatiue?} 


if Ne Sative then be sin 
N:=abs(N)? 

if Mode=Up then Mode:=Down 
else if Mode=Down then Mode:=Up? 
end 5 

case Mode of 

Down : Rounded:=t rune(N/M)*M 5 
Up: b e Sin 

Rounded:=N/M ? 
if abs(Rounded-round(Rounded))>epsiIon then 
Rounded:=(trunc(Rounded)+l*0)*M 
else 

Ro unded:=trun c(Rounded)#M 5 
end 5 * 

Near: Rounded:=t rune(N/M+M*0*5)#M5 
end? {case} 

if Negative then Rounded:=-Rounded 5 
RoundZ:=Rounded 5 
end? 


{work with a positive number} 
{if number is ne3ative> ...} 
{..♦reverse up and down} 

{should we round the number...} 
{..♦left on the number line?} 

{...risht on the number line?} 


{...to the nearest multiple?} 


{reinstate the siSn} 
{assiSn to function name} 
{function "RoundZ"} 


$pa3e$ {ft****#**#****#**#####*##****##*##*#**###*####**#*##****#***####*##*#} 
procedure YaxisClip(Spacin3» Location: real? Major: inteSer? 

M a J s i z e > Min size: real)? 


{. - .. } 

{ This procedure draws an Y-axis at any intersection point on the plottinS } 
{ surface. Parameters are as follows: } 
{ SpacinS: The distance between tick marks on the axis. } 
{ Location: The X- value of the Y-axis. } 
{ Major: The number of tick marks to 3e before drawing a major tick } 
{ mark. If Major=5> every fifth tick mark will be major. } 
{ MaJsize: The lentftht in world units» of the major tick marks. } 
{ Minsize: The len3th> in world units > of the minor tick marks. } 
{.-.} 


var 

Y: 

SemiMinsize: 
SemiMaJsize: 
Count e r: 
b e 3 i n 

SemiMaJsize 
SemiMinsize 
Counter:=0? 


real ? 
real ? 
real 5 
i n t e 3 e r 5 


=MaJsize*0.55 

=Minsize*0.5? 


{keeps track of when to do major ticks} 
{body of procedure "YaxisClip"} 


{start with a major tick} 


Cli pD raw(Locat ion >C1ipYmin »Location >C1ipYmax)5 

Y:=RoundZ(ClipYmintSpacin3*MaJor>Down)! {round to next lower major} 
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while Y< =C1 ipYmax do be3in 
if Counter=0 then 

ClipDraw(Location-5emiMaJsize >Y>Location+SemiMaJsize »Y) 
else 

ClipDraw(Location-SemiMinsize t Y .Location+SemiMinsize #Y) 5 
Counter:=(Counter+1) mod Major! 

Y:=Y+SpacinS5 
end! {while} 

end! {procedure "YaxisClip"} 

$paSe$ {********************************************************************> 


procedure Alpha(State: Displa/States)5 

{ . - . - .. . . ...-.-} 

{ This procedure turns the alpha raster on or off. } 

{.....-.-.-...} 


{mnemonic better than ma3ic number} 


{ 

{ 

{ , 

{procedure 


const 

A1phaRaste r= 1051! 
uar 

AlphaOn: array Cl..11 of inteSer! { \ 

Rarray: array C1..1] of real! 

Error: integer! 

b e 3 i n 

if State=0n then AlphaOnC1]:=1 
else A1 phaOriC13: =0! 

outPUt_esc(AlphaRaster>l>0 >AlphaOn »Rarray>Error)! 
if ErrorOO then writeln( 'Error '»Error:0»' in procedure "Alpha" 
end! {procedure "Alpha"} 

$paSe$ {ft**#*##****#**#*#***#*#*****############**#****##**#****************} 
function L o 310 (X: real): real! 


This is all stuff that 
is needed by the 
"o ut p u t _ e s c" procedure. 
Alpha"} 


') ! 


} 

} 

} 


{ ... - ....... } 

{ This function returns the logarithm to the base ten of a number. } 

{..------—.--} 


const 

Lo3_10= 2.30258509299! {lo3 to the base e of 10} 

be3in {function " Lo 310"} 

Lo 310: = In(X)/Lo S_10 ! 

end! {function "LosflO"} 

$pa3e$ {##**#**#**#**#******#*#*********#**#***#*#****#****#****************} 


function XtoY(X» Y: real): real! 

{ ............. } 

{ This function evaluates X to the Yth power. } 

{----------} 


be Sin {function "XtoY"} 

XtoY:=exp(Y*ln(X))5 {an logarithmic identity} 

end! {function "XtoY"} 

$paSe$ {ft*##*******#********#********###******#**##****##**#***#*******#****} 


procedure Gload(var Screen: GRasterType) ! 

{ . - ... - ...... . ... } 

{ This procedure loads a user's array into Sraphics memory. } 

{--.....-.........} 

be3in {procedure "Gload"} 


GRaster:=Screen ! {copy user array into Sraphics memory} 

end! {procedure "Gload"} 
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$paSe$ <***************************************«•****************************> 


procedure Gstore(var Screen: GRasterType) 5 

{.---- - > 

{ This procedure stores Graphics memory into a user's array* > 

{. - -----> 

besin {procedure "Gstore") 


Screen:=GRaster! {copy Graphics memory into user array} 

end? {procedure "Gstore"} 

$pase$ {##**##*##*#*##*#*######*#***#***####*##*##**#**#*#*###*#####**##*###} 


function SiSn(X: real): integer! 

{----------> 

{ This function returns the siSn of a number* i*e*> -1 if the number is } 

{ negative* 0 if the number is zero* and +1 if the number is positive* } 

{---- - ------} 

be Sin {function "Sitfri") 

Sisn: = o rd(X >0,0)-o r d(X< 0.0)5 {<0 -> -15 =0 -> OS >0 -> 1) 


end 5 {function "SiSn"> 

$pase$ {********************************************************************> 
function Intensity(Wavelensth> Temperature: real): real? 
be sin {function "Intensity"} 

In tensity:= 3 7 410/X toY(Wave 1en Sth >5)/(exp(14.39/(Wave 1en Sth#Temperatu re))-1)5 
end! {f unct ion " Inter*sity" } 

$paSe$ {#*#*######*##***#**#*#**#**#**#*#**##*#********####**#*###*#**#*####} 
be Sin {body of pros ram "GstorProS"} 

Sraphics_init5 {initialize Sraphics library} 

di spI ay_init(Crt>Contro1>Error) 5 {initialize CRT} 

if Error=0 then beSin {if no error occurred**.} 

A1pha(Off ) 5 


set.aspect(Rati o > 1) 5 
{===== Label the Sraph ====================== 

f o r I:=- 3 t o 3 d o {seven 

M ain Ti11e <1*0*002 * 1 t ' B1 a c K b o d y Radiation')5 
XaxisTitle(0»0«83»'Temperature (K): ')5 

YaxisTi11e(- 1>0 »' Intensity of Radiation')! 

XaxisTi11e(0 >-0.92 >'Wa v e1en St h (microns) ')5 
s e t_ vie wpo r t(0.1 *0♦S8 1 0♦15/Ratio*0.9/Ratio)5 

{define 


{enable entire p1o 11inS surface} 


iterations} 


{\ 

{ \ 
{ 

{ / 
{/ 


Write 
the four 
main 
labels* 


Xmin: =-4! 

Xmax:=3 5 

X ran Se:=Xmax-Xmin 5 
D x : = 0.15 
Ymin:=-55 
Ymax:=25 5 

Y ran Se:=Ymax-Ymin5 
D y : = 1 5 

set_window(Xmin >Xmax >Ymin >Ymax)5 
{===== Draw and label loSarithmic 
for Decade:=Xmin to Xmax do beSin 

for Units:=l to l+8*ord(Decade<Xmax) do beSin 
X:= D e c ad e+Lo S10(Unit s)5 {calculate 

move(X fYmin)5 
line(XtYmax)5 
end! {for units} 
end! {for decade} 

X:=Xmin 5 
St rn S: = ' '! 


subset of p1o11inS surface} 
{smallest power for wavelensth} 
{larSest power for wavelensth} 
{distance between X extremes} 
{increment of X} 

{smallest power for intensity} 

{1 arSest power for intensity} 

{distance between Y extremes} 
{increment of Y} 

{scale the window for the data} 

X-axis Srid =============================} 

{one decade equals one mantissa cycle} 
{do 2-9 if not last cycle} 
for screen} 

{ \ Draw a vertical line for } 

{ / Y-axis at appropriate place } 


{ s t a r t i n s 
{ n u 11 o u t 


place for X- 
the strinS} 


axis labels} 


} 

} 

} 

} 

} 
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Kin ax do be sin 
L a b e1 Jus tif y(HC entered> T o p) ? 

Cha rSize(0.025>0.G) 5 
wove(X »Ymin-YranSe*0.015) ! 

Glabel('10 ') 5 
CharSize(0.015 >0.6) ! 

L a b e 1J u s t i f y (L e f t > B o 11 o w) ! 
wo ve (X+XranSe*0.01 >Y win-Y r a n3 e * 0.025)5 
strwrite(Strn3>l > I >X: 2:0) 5 
Glabel(strltrim(Strn3))5 
X:=X+Dx#105 
end? <while> 

{ = = = = = Draw and label loSarithmic 
ClipLiwit(Xwin>Xmax>Ywiri>Y max)5 

Y a xis C1ip(1> Xm i n>1>0.01> 0.01)5 

Y a xis C1ip(1> Xwa x >1>0.01>0.01) 5 
Yininj 


Write the 
labels for 
X-axis. 


the 


/ 


do b e 3 in 


i 

while YOYmax 
w o v e (X w i n > Y) i 
1ine(Xwax>Y)5 

Lab e1Jus tif y(Ri3h t>0Cen t e r e d)5 
Cha rSize(0.025 >0.6)5 
move(Xmin-X ran3 e *0.03>Y) i 
Glabel( '10')5 
Cha rSize(0.015 >0♦6) I 
L a b e 1J u s t i f y (L e f t > B o 11 o in) ! 
in o v e (X w i n -XranSe* 0.0 2 5 > Y+Y r a n 3 e * 0.01) i 
s t rw r i t e ( S t rn 3 > 1 > I >Y: 2:0) ! 
Glabel(strltriw(Strn3))5 
Y:=Y+5*Dy5 
endi {while) 

{===== Here is where the action starts === 
Gstore(Bcreen); {put 

Ch a rSiz e(0♦03 >0.6)5 {set 

LabelJustify(Left»Bottom); {set 

while true do be3in 

read(Keyboard>Character); {3et 

if Character's' then Character: = '0'5 
if (Character>='!') and (Character<='9') 
Gload(Screen) ; 

I:=ord(Character)-ord( ' 0 ')5 
Tempe ratu re: = I*XtoY(10 >3) ; 
move(0 >25♦6) ! 

s t r w r i t e (S t r n 3 > 1 > I > T e in p e r a t u r e : 15:0) 5 
GlabeHstrltrim(StrnS)) 5 
01dX:=Xmin5 

01 d Y: = I ri t e ri s i t y ( X t o Y < 10 > 01 d 
X;=01dX+Dx ; 

whi1e X< =Xmax do be sin 


axis Srid =========================== 

{define soft clip limits for axes} 
{plot left Y-axis} 

{plot risht Y-axis} 

{startinS value for y} 


Draw horizontal 
an X-axis. 


line for 


{label orisin: center of risht 


\ 


Write Y-axis 
labels in 
exponential 
f o rm ♦ 


/ 


} 

} 

e d 3 e } 
} 

} 

} 

} 

} 

} 

} 

} 

} 


================================> 

the i in a 3 e into array} 
up charsize for temperature} 
up label orisin for temperature} 

character from Keyboard} 

then b e 3in 
{load the imaSe} 

{translate char to number} 

{build temperature} 

{move to where temp is to be} 
{translate to strinS} 

{label the temperature} 

{X startinS point} 

) >Temperature) ; {Y startinS point} 
{second point for X} 

{loop throush all Xs} 


Y: = I n t e n s i t y (X t o Y (10 > X) > T e in p e r a t u r e ) ; {calculate current X } 

Cli pD raw(01dX>Lo310(01dY) >X>Lo310(Y))5{draw line after clippinS} 
01d X:= X 5 01d Y:= Y 5 {s a ve new o1d va 1u e s} 


X:=X+2#Dx5 
end? {while} 
e n d 

else if Character 
else write(#G)5 
end; {while true} 
end! {Error=0?} 

1: Sraphics-term? 

end. {proSram "GstorPros" } 


{speed up the curve} 


'0' then Soto 1 


{beep} 

{end of conditional 
{terminate Sraphics 
{end of proSram} 


code} 

library} 
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IsoProg 


3; 

05 

1 * 313G24G788G 5 


p r 0 3 r am 1 5 0 P r 0 3 (input »0 u t p u t ^keyboard) 5 

import d 3 1 _ 1 i b t d 31 _ i n = 1 1 

const 

Crt = 

Control 2 

Ratio 2 
type 

RoundType= 
va r 

Error: 

X m i n t X m a x > Y m i n > Y m a x 

Characte r: 

ClipXmirif ClipXmax: 

ClipYmin* ClipYmax: 

Keyboard: 


{access the necessary procedures} 

{device address of 3raphics raster} 
{device control word? iSnored for CRT} 
{aspect ratio of Model 23G screen} 


(Up>D own»Near)5 {used by function RoundZ} 


integer? 
real ! 

strinSCll! 
re a 1 5 
real? 
text! 


{ d i s p 1 a y _ init return variable! 0 2 0 K } 
{isotropic units for window} 

{for continue m e s s a 3 e} 

{soft clip limits in X} 

{soft clip limits in Y} 

{ n 0 n - e c h 0 in 3 input} 


$pa3e$ {ft####*#******####*##*******************#*###*#*##*#****#*#####**##*#} 
procedure Frame! 

{ ------- } 

} 

- } 


This procedure draws a frame around the current window limits. 


{ 

{ - 

const 

WindowLimits 
type 

L i m i 10 r d e r 2 
L i m i t T y p e = 
v a r 
Pac: 

I a r r a y : 

W i n d 0 w: 
Error: 
b e 3 i n 


4505 


{mnemonic better than masic number} 


(Xmin t Xmax > Ymin> Ymax)5 
array CLimitOrder] of real! 

packed array [ 1. . 1 ] of char! 
array C1 ♦ ♦ 1 ] of inteSer! 

L i m i t T y p e ! 
inteSer! 


{ \ These are the sundries 
{ \ needed by the call to 

{ /the DGL procedure 
{ / "inp.ws". 

{body of procedure "Frame"} 


inq_ws < WindowLimits >0 >0 >4 >Pac >I a r ray >Window >E r ro r)5 
if Er r 0 r 2 0 then be3in 

m 0 v e(Wind 0 w C Xmin] t Wind 0 w[Ymini) ! 

1in e(Win d 0 w C Xmin] t Wind 0 w CYma x])5 
1in e(Wind 0 w C Xm ax] t Wind 0 w C Ymax])! 

1in e(Win d 0 w[Xm a x]> Win d 0 w C Ymin]) ! 

1in e(Win d 0 w C Xmin]> Wind 0 w CYmini)5 
end {Error 2 0?} 

else writeln('Error '>Error:0»' occurred in "Frame"')5 
end! {procedure "Frame"} {return} 


{ m 0 v e 

to 

lower 

left 

co me r} 

{ d raw 

to 

upper 

left 

corner) 

{ d raw 

to 

upper 

r i 3 h t 

corner) 

{ d raw 

to 

lower 

r i 3 h t 

corner} 

{ d raw 

to 

lower 

left 

co me r} 
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$pa$e$ {a**#***##***#***#*###**#*##**##*#*###**##***#*#*#***#****#**#*******} 
procedure Cl ipLimit (Xmiri t Xmax > Y min » Ymax: real)! 


This procedure defines the four Global variables which specify where the 
soft clip limits are. 


{ 

{ 

{ --- 

b e S i n 

if XminO'max then be sin 
Cl ipXmin:=Xmin 5 
ClipXmax:=Xmax 5 
e n d 

else b e Sin 

ClipXmin:=Xmax 5 
Cl ipXmax:=Xmin 5 
e n d 5 

if YmirKYmax then besfin 
Cl i pYmin : = Yin in i 
Cl ipYmax:=Ymax5 
e n d 

else b e sin 

ClipYmin:=Ymax ? 

ClipYmax:= Ymin 5 
e n d 5 
e n d! 


{procedure "ClipLimit"} 


\ 


Force the minimum soft 
clip limit in X to be 
\ the smaller of the two 
/ X values passed into 
the procedure. 


Force the minim urn soft 
clip limit in Y to be 
\ the smaller of the two 
/ Y values passed into 
the procedure. 


/ 


{procedure "ClipLimit"} 


$paSe$ {**##*##**#******#*#**#**#####**#*#****#*******#*##*#****#***####**##} 
procedure ClipDraw(Xl» Y1 » X2 > Y2: real)! 


{ This procedure takes the endpoints of a line > and clips it. The soft 
{ clip limits are the real Slobal variables ClipXwin » ClipXmax. C1ipYmin » 
{ and ClipYmax. These may be defined through the procedure ClipLimit. 


label 
1 ; 
type 
E d S e s = 

OutOfBounds= 
var 

Out .Out 1>0ut2:OutOfBounds 5 
X » Y: real? 


(Left >RiSht .Top.B ottom)5 
set of EdSes! 


{possible edSes to cross} 
{set of edsfes crossed} 


{ ..... 

procedure Code(X> Y: real? var Out: OutOfBounds)5 


b e 5f i n 

0 u t: = C ] 5 

if x<ClipXmin then Out: = C1eft] 
else if k>C 1ipXmax then Out: = CriSh115 
if y<ClipYmin then Out:=Out+[bottoml 
else if y)ClipYmax then Out:=0ut+Ctop]5 
e n d 5 

{ -- 


{nested procedure "Code"} 
{null set} 

{off left edSe?} 

{off risht edSe?} 

{off the bottom?} 

{off the top?} 

{nested procedure "Code"} 
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b e sf i n 

Code(XI»Y1*0utl)! 
Code(X2 »Y2 *0ut2)5 


{body of procedure "ClipDraw"} 
{fiSure status of point 1> 
{figure status of point 2> 


while (OutlOCl) or (0ut2<>[]) do besin {loop while either point out of ranse} 


if (Outl*0ut2)<>C1 then Soto 15 
if OutlOC] then 0ut:=0utl 
else Out:=Out25 
if left in Out then be sin 
y: 


{if intersection non-null» no line} 


{Out is the non-empty one} 

{it crosses the left edse} 

Y1 +(Y2-Y1)*(ClipXmin-Xl)/(X2-X1)!{ad Just value of y appropriately} 
ClipXmin! {new x is left edse} 

{left in Out?} 

else if risht in Out then besin {it crosses risht edse} 

y: S Y1 + (Y2-Y1)#(ClipXmax-Xl)/(X2-X1)5{ad Just value of y appropriately} 
xs = C1ipXmax 5 {new x is risht edse} 

end {risht in Out?} 

else if bottom in Out then besin {it crosses the bottom edse} 

x:=Xl+(X2-Xl)#(ClipYmin-Yl)/(Y2-Yl)5{adJust value of x appropriately} 
y:= C1ipYmin 5 {new y is bottom edse} 

end {bottom in Out?} 

else if top in Out then besin {it crosses the top edse} 

x:=X1 + (X2-X1)#(ClipYmax-Yl)/(Y2-Y1)5{ad Just value of x appropriately} 


x: 
end 


y:=C1ipYmax 5 
end! {top in Out?} 
if Out=Outl then besin 

X1: = x 5 Y1:= y 5 Code(x*y»Outl)5 
end {Out=Outl?> 
else besin 

X2:=x 5 Y2:=y 5 

end! {else besin} 
end! {while} 
m o v e ( x 1 * y 1) 5 
Iine(x2»y2)5 
1 : end ! 


{new y is top edse} 


{redefine first end point} 


Code(x»y»0ut2)! {redefine second end point} 


{if we Set to this point* the line...} 
{...is completely visible* so draw it} 
{procedure "ClipDraw"} 

$paSe$ {ft#*##*###**#*#**##*##*#*##*#***#******######*##*###****###***####**#} 
function Round2(N> M: real! Modes RoundType): real! 

{.- . } 

{ This function rounds "N" to the nearest "M" > accord inS to "Mode". This } 
{ function works only when the arSument is in the ranSe of MININT..MAXINT. } 
{.-.-.-.} 


const 

epsilon= IE-105 

var 

Rounded: real! 

NeSative: boolean! 

b e S i n 

NeSative: = (N<0.0) 5 
if NeSative then besin 
N: = a b s (N) ! 

if Mode=Up then Mode:=Down 
else if Mode = Down then Mode s = Up! 
end! 


{roundoff error fudSe factor} 

{temporary ho Id ins area} 

{f1 as: "It is neSative?"} 
{body of "Round2"} 

{is the number neSative?} 

{work with a positive number} 
{if number is neSative* ...} 
{.♦♦reverse up and down} 
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case Mode of {should we round the number.. .} 

Down: Rounded:=trunc(N/M)*M! {...left on the number line?} 

Up: t* e sf i n 

Rounded:=N/M? {...risht on the number line?) 

if abs(Rounded-round(Rounded))>epsi1 on then 
Rounded:=(trunc(Rounded)+1.0)#M 
else 

Ro und e d: = t rune(Rounde d)*M 5 


e n d i 

Near: Rounded:=t rune(N/M+M*0.5)*M 5 
end? {case} 

if Negative then Rounded:=-Roundedi 

RoundZ:=Rounded 5 

end? 


{...to the nearest multiple?} 

{reinstate the siSn} 

{assiSn to function name} 
{function "RoundZ"} 


$pase$ {a#*#*#*#*##*************##******#****#*****#**##*#####**#**###*##*##} 
procedure Grid(XspacinS .YspacinS .XlocY .YlocX: real! XmaJor. YmaJor: inteSer! 

Xminsiz e > Yminsize: real)? 


{---.} 

{ This procedure draws a arid on the plotting surface. with user-definable } 
{ minor tick size. Parameters are as follows: } 
{ XspacinS: The distance between tick marks on the X axis. } 
{ YspacinS: The distance between tick marks on the Y axis. } 
{ XlocY: The X- value of the Y-axis. } 
{ YlocX: The Y-value of the X-axis. } 
{ XmaJor. The number of tick marks to se before drawing a major tick } 
{ YmaJor: mark. If MaJor=5> every fifth tick mark will be major. } 
{ Xminsize: The lenSth. in world units» of the X minor tick marks. } 
{ Yminsize: The length, in world units> of the Y minor tick marks. } 
{.......} 


var 

Xi Y: real? 

Xstart »Ystart:real? 

XsemiMinsize: real 5 
YsemiMinsize: real? 

Counter: inteSer5 

besin {body of procedure "Grid"} 

XsemiMinsize:=Xminsize*0.5? 

YsemiMinsize: = Yminsize #0.5? 

Xstart:=RoundZ(ClipXmin .XspacinS*XmaJor .Down) ! {round to next lower major} 
Ystart:=RoundZ(ClipYmin»YspacinS*YmaJor .Down)? {round to next lower major} 

{ — — — — — Draw vertical major ticks .*.} 

X:=Xstart! 

while X<=ClipXmax do be Sin 

Cl i pD raw(X »C1ipYmin>X .ClipYmax ) 5 
X:=X+Xspacin s*XmaJo r5 
end! 

{===== Draw horizontal major ticks ==========================================} 

Y:=Ysta rt5 

while Y<=ClipYmax do be Sin 

C1i pD raw(C1ipXmin >Y >C1ipXmax>Y)5 
Y:=Y+YspacinS*YmaJo r 5 
end 5 
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{===== Draw vertical minor ticks ============================================} 

X: = X s t a r 15 
Counter:=0? 

while X< = ClipXmax do be Sin 
if Counte r<>0 then be sin 
Y:=Ystart5 

while Y< =C1 i pYutax do be Sin 

ClipDraw(X >Y-YSemiMinsize »X#Y+YSemiMinsize)5 
Y:=Y+Yspac in S 5 
end? {while Y<=ClipYmax> 
end! {counter<>0?} 

Counter:=(Counter+1) mod XmaJor! 

X:=X+XspacinS 5 
end? {w hi 1 e > 

{===== Draw horizontal minor ticks ==========================================} 

Y: = Y s t a r 15 
Counte r:=0 5 

while YOClipYmax do beSin 
if Counter<>0 then besin 
X:=Xstart? 

while X< = C1ipXmax do besin 

ClipDraw(X-XSemiMinsize »Y»X+XSemiMinsize»Y)5 
X:=X+XspacinS I 
end? {while X<=C1ipXmax> 
end? {counter<>0?> 

Counter:=(Counter+1) mod YmaJor? 

Y:=Y+Yspacin S5 
end? {while} 

end? {procedure "Grid"} 

$PaSe$ {************************************************* a##**##*#*#*#*#####} 


procedure I sot ropicWindow(Wxmin >Wxmax >Wymin>Wymax: real)? 

{ . - . - . - . } 

{ This procedure allows the user to specify a window which forces the } 
{ units to be isotropic > i .e.> X units are exactly as Ions as Y units are. } 

{ . - . - . > 

const 


ViewportLimits= 4515 {mnemonic better than maSic number} 

type 

LimitOrder= (Vxmin »Vxmax >V'/min > Vymax) 5 
LimitType= array CLimitOrder] of real? 
ua r 

Pac: packed array Cl..11 of char? { \ ...sundry variables } 

Iarray: array Cl. .11 of inteSer! { \ needed by the "inq_ws" } 

Viewport: LimitType? { / procedure# called to Set } 

Error: inteSer? {/ window limits. } 

Wxranse# WyranSe: real? {X/Y ranSe in window (world) coordinates} 

VxranSe# VyranSe: real! {X/Y ranSe in viewport (virtual) coordinates} 

Wratio# Vratio: real 5 {aspect ratios of window and viewport} 

Wxmid# Wymid: real? {X/Y midpoints of window} 

WVratio# VWratio: real 5 {ratios of the ratios} 

Multiplier: real? {the amount to multiply the semiranSe by} 
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b e 3 i n {procedure "IsotropicWindow") 

inq.ws (Uiewpo rtLi mi ts >0 *0 >4 >Pac »I a r ray >Uiewpo rt *E r ro r) 5 {3et viewport limits} 
if Erro r< >0 then 

writeln('Error '»Error:0>' in procedure "Show".'); 

Wxran3e:=Wxmax-Wxmin5 {ransfe of X in desired window) 

Wy ran3e:=Wymax-Wymin 5 {ran 3e of Y in desired window) 

Wratio:=Wxran3e/Wyran3e5 {aspect ratio of desired window) 

Vx ran 3e:=Uiewpo rt[Vxmax]-Miewpo rt CMxmin]! {ran 3e 

Vy ran 3e : =Miewpo rt [Uymax ] -Vi ewpo rt CVymin ] 5 { ran 3e 

V r at i o : = Mx r an 3e / Vy r an 3e 5 
if abs(Uratio)<abs(Wratio) 


then be Sin 

Wymi d : =Wymin+Wy ran 3e*Q.5 j 
WM ratio: = abs(W ratio/M ratio ) 5 
Mul t i pi i e r: = Wy ran3e*0.5*W 1 /rat io 5 
Wvwin:= Wymid-Multipiie r j 
Wymax:=Wy«id+Multiplie r 5 
end 

else b e 3 i n 

Wxmid:=Wxmin+Wxran 3e*0.5 5 
UWratio:=abs(Mratio/Wratio)5 
Multipiie r:=Wx ran Se*0.5*UWratio 5 
Wxmin:=Wxmid-Multiplier; 
Wxmax:=Wxi«id+Multiplier; 
end? {vratio<wratio?) 
set-window (Wxmin >Wxmax .Wvirtin >Wy(itax ) 5 
end; 


of 
of 

{aspect ratio of 
{need more room 


X in current 
Y in current 
viewport) 

on top and bottom) 


viewport) 

viewport) 


{Y midpoint in desired window) 

{ratio of aspect ratios) 

{what the Y ranSe must be extended by) 
{new minimum Y for window) 

{new maximum Y for window) 

{need more room on risht and left) 

{X midpoint in desired window) 

{ratio of aspect ratios) 

{what the X ranse must be extended by) 
{new minimum X for window) 

{new maximum X for window) 

{set window with twiddled parameters) 
{procedure "IsotropicWindow") 


$paSe$ {a**###*#***####*##****##**#*#####*#**##*####**#****#*#**#**##*#**###} 


b e 3 i n 

3raphics_ini15 

display_init(Crt»Control>Error)5 
if Error=0 then be3in 
set_aspect(Ratio >1)5 
while true do be 3in 
write(*12)5 

prompt('Xmin» Xmax> Ymin> Ymax 
readln(Xmin >Xmax >Ymin tYmax)5 
set_line_style(3)5 
F rame ; 

Isot ropicWindow(Xmin .Xmax »Ymin 
ClipLimit(Xmin >Xmax>Ymin »Ymax) 
s e t _ 1 i n e _ s t y 1 e (1) 5 
Grid(l >1 »0»0»1 >1 »1 »1) 5 
prompt( 'Press the space bar to 
read(Keyboard>Character)5 
clear.display 5 
end? {while) 
end; {Error=0?) 

3 raphics_te rm 5 
end. 


{body of prosram "IsoProS") 

{initialize Sraphics library) 
{initialize CRT) 

{if no error occurred...) 

{use the whole screen) 

{until the cows come home...) 

{clear the alpha screen) 

')5 {3ive the user the prompt) 

{read his/her answers) 

{invoke dashed line style) 

{draw dashed frame) 

Ymax)5 {invoke isotropic units) 

{set soft clip limits to user's values) 
{invoke solid lines) 

{show isotropic 3rid of requested area) 
3o on.')5 {user's continuation prompt) 

{wait until user says to 3o on) 

{clear 3raphics screen) 

{end of conditional code) 

{terminate 3raphics library) 

{pro 3 ram "I so Pro 3") 



A-46 Listings of Example Programs 


JustProg 


p ro $ ran) Jus t P ro 3 (output) 5 
import d 31 _ 1 i b > d 31 _ i ri p 5 
const 

C r t A d d r = 3! 

ControlWord= 0 5 

type 

HJustifvType= 

MJust ifyType = 

An 3Type= 

Str255= 
var 

ErrorReturn: 

H j u s t: 

M Just! 

I: 

St rn 3 : 

CharWidth >CharHei3ht 

HJustification: 

^Justification: 

CharTheta: 


■(Set 3 r a p h i c s routines) 

{address of internal CRT) 
{device control! 0 for CRT) 


(Left>HCentered>Ri3ht)5 {horizontal justification) 
(Bottom JJCenteredtTop)5 {vertical justification) 

(De3»Rad>Grad)5 {used by procedure "LabelDirection") 
strin3C25535 {for the procedure "Glabel") 


i n t e 3 e r 5 
HJustif'/Type 5 
0Justif ’/Type 5 
i n t e 3 e r 5 
str2555 
real 5 

HJust if’/Type 5 
OJustif’/Type 5 
real 5 


♦include 'DGLPRG:ConvVtoW'* 


{variable for initialization outcome) 
{horizontal Justification variable) 
{vertical justification variable) 

{for the strwrite statement) 

{labelled text holder) 

{ \ These are 31oba 1 variables ) 

{ \ needed by the Labe1Justif v / ) 

{ / LabelDirection/CharSize ) 

{/ series of procedures. ) 

{needed by procedure "CharSize") 


$pa3e$ {**#***##***##**#*#***##*#**#**#****##**#*#*****###**#*****###*######) 
procedure Frame? 


{ This procedure draws a frame around the current window limits. 

{- .. ...... 

const 

WindowLimits= 
type 

LimitOrder= 

L i m i t T y p e = 
var 

Pac: 

I a r r a y : 

Window: 

Error: 
b e 3 i n 


450 5 


{mnemonic better than maSic number) 


(Xmin> Xmax > Ymin»Ymax)5 
array (LimitOrderl of real 


packed array 
array [ 1.. 1 ] 
L i m i t T y p e 5 
i n t e 3 e r 5 


(1 
o f 


.1] of char 
i n t e 3 e r 5 


These are the sundries 
needed by the call to 
the DGL procedure 
" ins-ws". 

{body of procedure "Frame") 


/ 


in«i_ws (WindowLimi t s »0 >0 >4 »Pac > I a r ray ^Window >E r ro r) 5 
if E r ro r = 0 then be 3in 

move(WindowCXmin3tWindowEYminl)5 {move 

1 in e(Window[Xmin ] .Win dow[Ymax 3)5 {draw 

1in e(Win d o w[Xmax 3»Wind o w C Ymax 3)5 {dr aw 

1in e(Win d o w C Xmax 3> Win d o w[Ymin 3)5 {dr aw 

1in e(Win d ow[Xmin3 >Win dow CYmin 3)5 {draw 

end {E r ro r = 0?) 

else write In( 'Error '»Error:0>' occurred in "Frame"') 
end! {procedure "Frame") {return) 


to lower left corner) 
to upper left corner) 
to upper ri3ht corner) 
to lower ri3ht corner) 
to lower left corner) 
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$pasf e$ {a*#**#***#****#*********#********************#******##*#***#****#***} 


procedure CharSize(He i Sht> AspectRatio: real); 

{------> 

{ This procedure defines character cell size and the puts the Width arid } 
{ Heisht values into slobal variables for later use* The arguments passed } 

{ in are the height of the character cell in UIRTUAL coordinates* and the > 

{ aspect ratio of the character cell. The values for the window limits > 

{ may be any th in $ 5 they are taken into account and do not affect the size } 

{ of the characters* since they are defined in virtual coordinates. This > 

{ procedure* alonS with Lor$ and Ldir* define Global variables for use by > 
{ Glabel. } 

{ --- > 


real 

real 

real 


v a r 

Width: 

X0> YO: 

XI> Y1: 
b e 3 i n 

Conve rtUirtualToWo rId(0*0 * 
ConvertVirtualToWorldd * 1 » 
Height:=HeiSht*(Y1-Y0)* 
Width:=Hei£fht*AspectRatio*(Xl 
set_char_size(Width>HeiSht)j 
e n d 5 


{temporary spot for width} 

{0 * 0 (virtual) in world} 

{1*1 (virtual) in world} 

{body of procedure "Cha rSize" } 

0 »Y 0) ! {convert 0*0 in virtual to world} 

1>Y1)5 {convert 1*1 in virtual to world} 

{convert height in virtual to world} 

-X0)/(Y1 -Y0)5 {convert width in virtual to world} 
{invoke the parameters} 

{procedure "CharSize"} 

$pa3e$ {a-*********##*******#*##*#****#**********#**#***##**##*#********#*#**} 
procedure LabeIDirection(Direction: real 5 Units: AnsType)? 


{-.....- . .} 

{ This procedure is used in conjunction with LabelOritfin* CharSize and } 
{ Glabel. It sets the labelling direction to be used* and places the } 
{ direction into a Global variable so Glabel can use it. } 
{-----.} 


const 

De$_per_rad= 57.2957795131; {180/pi: for converting decrees to radians} 
Grad_per_rad= G3.GG197723G8; {200/pi: for converting sf rads to radians} 
be 3 in {procedure "LabelDirection"} 

case Units of 

DeS: Direction:=Direction/DeS_per_rad 5 {decrees to radians} 

Rad: 5 {correct units already} 

Grad: Direction:=Direction/Grad_per_rad5 {s rads to radians} 
end5 {case} 

CharTheta:=Directi on 5 {put into a Global variable} 

set_text-rot(cos(CharTheta) *sin(CharTheta))5 {invoke the new text direction} 
end? {procedure "LabelDirection"} 

$paSe$ {a*#*####*###**#########*##*#**#*#*###*###***#######*##*###*#*#######} 


procedure Label Justify (HJust: HJust i f'/Type 5 OJust: UJustif'/Type) 5 

{ . } 

{ This procedure is used in conjunction with procedures CharSize* } 

{ LabelDirection* and Glabel. This just puts a value into sflobal } 

{ variables which will be subse<=iuen11 y used by Glabel. } 

{ --- - . - -- } 

be i in {procedure "LabelJustify"} 

HJustification:=HJust5 
^Justification: 5 VJ us 15 
e n d 5 


{procedure "LabelJustify"} 
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$pa$e$ {a#***#*****#****#********##**#**#**********#*#*###**#***##*#*#**###*} 


function Atan(Y > X: real): real 5 

( . . . . . .> 

( This function returns the value of the arctangent of Y/X > placing it > 

( in the correct quadrant* If Y and X are both zero* the result is zero. > 
(.......> 


const 

Pi= 3* 141592G5359 ! (pi) 

be Sin (function "Atari"} 

if X = 0,0 then Atari : = ( Pi/2+Pi*o rd (Y<0,0)) *o rd (Y< >0,0) 
else Atari: = a ret an (Y/X )+Pi#o rd (X<0.0) +2#Pi#o rd ( (X > 0*0) and (Y<0.0) ) 5 
end* (function "Atan"> 

$paSe$ (********************************************************************> 


procedure GlabeHText: Str255)5 

(. - .... . } 

( This procedure labels a string of text at the current pen position* } 

( It taKes into account the current label direction (set by procedure } 

( "LabelDirect ion" > the current character size (set by procedure } 

( "CharSize")* and the current label Justification (set by procedure } 

("LabelJustify"). } 

(-----> 


const 

CharSizeCode= 

C u r r e n t P o s i t i o n = 
type 

Positions= 
PositionType= 
CharAtt ributes = 
Cha rAttrType = 


250! (mnemonic better than masfic number) 

2505 (ditto) 

(X > Y) 5 

array (Positions] of real* 

(Width >Heishth ) 5 

array (CharAttributes] of real! 


v a r 

Chars: 
Charsize: 

L e n > H e i S h t: 
D x > D y : 

R >Theta: 

Pac: 

I a r r a y : 
Position: 
Error: 
b e sf i n 

inq_ws(CharSi: 


i n t e s e r 5 
CharAttrType5 
real > 
real! 
real 5 

packed array (1. 
array (1 *. 1 ] of 
Position Type! 
integer? 

(procedure "Glabel 

eCode >0 >0 >2 >Pac »Iarray >Charsize *Error) 5 

in "Glabel", ')5 


(length and heisht of character strintf) 


(for rectanSular-to-polar conversion) 


.1] of char! 
i n t e 3 e r i 


\ 

\ 

/ 

/ 

") 

(Set 


These are the 
sundry items 
needed for the 
call to "inq.ws 


pen position) 


if ErrorOO then w rite In ('Er ro r' »Er ro r :0 * 

Chars:=strlen(text) 5 

Len:=Charsize(Width]*(7*Cha rs+2*(Chars-i))/9? (length minus 

Hei3ht:=Charsize(Hei3hth]*8/155 (heisht minus 

Dx:=Len*(-ord(HJustification)/2)5 
Dy:=HeiSht*(-o rd(OJustification)/2)5 
R:=sqrt(Dx*Dx+Dy*Dy)5 { \ 

Theta:=Atan(Dy »Dx) ! ( / 

Theta:=Theta+CharTheta5 (add 

Dx:= R*co s(Theta)* ( \ 

D*/ : =R*sin (Theta) 5 ( / 

inq_ws(Cur rent Position>0*0>2*Pac>I array *Position >Error)! 
if Er ro r = 0 then be 3in 

move(Position(X3+Dx*Position(Y]+Dy)5 (move to the new starting 
tftext(text) 5 
end (Error=0?) 

else w rit e1n( 'E r ro r'*E r ro r:0 >' in "Glabel".'); 

endi (procedure "Glabel") 


inter-char Sap) 
inter-line Sap) 


Convert to polar coordinates so 

rotation is easy. 

the LabelDirection ansle) 

Convert R and the new Theta back 
to rectangular coodinates* 


point) 
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$pa se$ <********************************************************************} 
be Sin {body of pros ram "Just Pros"} 

Sraphics_init! {initialise the Sraphics system} 

display.init(CrtAddr>ControlWord>ErrorReturn)? {which output deuice?} 


{output deuice initialization OK?} 
{use the whole screen} 

{scale the window for the data} 
{draw a frame around the screen} 
{width = 3'Z screen width? asp. ratio : 
{horizontal labels} 


. 6 } 


if Er ro rRetu rn = 0 then be Sin 
set-aspect(511>380) i 
s e t_win dow(-1>2.5 >- 0.5 >2.5)5 
F rame ? 

CharSize(0.03 >0.8)5 
LabelDirection(0>DeS)5 
{===== Labels at the top ========= 

LabelJustify(HCentered>T op) 5 
for HJust:=Left to Risht do beSin 
St rns: = '' 5 

strwrite(Strns>l>1>Hjust)5 
moue(ord(HJust) >2.4)5 
Glabel(StrnS)5 
end? {for H J u s t} 

{===== Labels on the left edSe ============================================} 

LabelJustify(LefttOCentered)5 {label's reference point: left middle} 

for Ojust:=Top downto Bottom do beSin {uertical loop} 


{label's reference point: top middle} 
{horizontal loop} 

{null the st rin S so nothin S left oue r} 
{conuert enumerated type to strinS} 
{move to the appropriate place} 

{label the strinS} 


St rn s: = '' 5 

s t rw ri t e (St rn s >1>I> 0J us t ) 5 
move(-0♦9 >o rd(VJust))5 
Glab el(Strns)? 
end? {for Ujust} 

{===== Labels ("TEST") with different 

Cha rSize(0.OB >0.B) ! 

for Hjust:=Left to Risht do beSin 


{null the strinS so nothinS left over} 
{convert enumerated type to strinS} 
{move to the appropriate place} 

{label the strinS} 

justifications ======================} 

{characters a bit biSSer} 

{horizontal loop} 


\ 


/ 


for Ujust:=T op downto Bottom do beSin 
Labe1 Justify(Hjust >0just)5 
move(o rd(Hjust)+0♦03 >o rd(0just)+0.03)5 
1ine(o rd(Hjust)-0.03 >o rd(Ujust)-0.03)5 
move(o rd(Hjust)-0.03 >o rd(Ujust)+0.03)5 
1ine(o rd(Hjust)+0.03 >o rd(0just)-0.03)5 
move(ord(Hjust) >ord(0just))? {move to label's 

GlabeK 'TEST') 5 {label the text} 

end? {for Ujust} 
end? {for Hjust} 
end? {ErrorReturn=0?} 

Sraphics-term? {terminate the Sraphics 

end. {prosram "JustPros"} 


{vertical loop} 

{set label justification} 

} 

liaKe the "x" at } 

the appropriate } 

place ♦ } 

startins position} 


pacKaSe} 
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LdirProg 


p ro sf ram LdirProS? 
import dsfl_lib ? 
const 

C rt = 

C o n t r o 1 = 
type 

AnsType= 

uar 

Errors 

I > J: 

St rn S: 

CharTheta: 


{prosram name same as 
■(access the necessary 


file name> 
procedures} 


3; 

0! 


•(device address of Graphics raster} 
{device control word? ignored for CRT} 


(DeS>Rad>Grad)5 {used by procedure LabelDirection} 

integer? {display_init return variable? 0 = ok} 

integer? {loop control variable and spare} 

st rinSt 501? {strinsf to label} 

real? {Global variable for label direction} 


$pase$ {ft##***##*##*##*#**#####*##**#**####**#****#****#***##**#*#*##***#**#} 
procedure LabelDi rection(Di rection: real! Units: AnSType)? 


{ This procedure is used in conjunction with LabelOriSin» CharSize and 
{ Glabel. It sets the labelling direction to be used> and places the 
{ direction into a Global variable so Glabel can use it. 


57.2957795131? 
S3♦GG197723G8 5 


{180/pi 
{200/Pi 


const 

De S_pe r_rad = 

G rad.pe r_ rad = 
besin 
case Units of 

D e sf: Direction:=Direction/DeS_per_rad! 

Rad: ? 

Grad: Direction:=Direction/Grad_per_rad? 
end? {case} 

CharTheta:=Direction5 {put 

set_text_rot(cos(CharTheta) >s in(CharTheta) ) 5 


for converting decrees to radians} 
for converting s rads to radians} 
{procedure "LabelDirection"} 


{decrees to radians} 

{correct units already} 

{Srads to radians} 

into a sf 1 oba 1 variable} 

{invoke the new text direction} 


end? 

$pase$ 
b e s i n 

Sraphics-init? 

display_iriit(Crt>Control > E r r o r) 5 
if Er ro r = 0 then beSin 
set-aspect(511>389)? 
set-window(-1>1> - 1 >1)5 
set_char.size(0.05 >0.08)? 
for I:=0 to 35 do be Sin 
St rnS: = '' 5 

s t r w r i t e ( s t r n S > 1 > J > I * 10:0) ? 

StrriS: = '-'+Strns+' deS 

LabelDirection(1*10 >Des)5 
m o v e (0 > 0) 5 
Stext(St rnS) 5 
end? {for I} 
end? {Error=0?} 
s raphics_te rm ? 
e n d. 


{procedure "LabelDirection"} 

{#*#*#**#*#*#*#*#**#*####*#***######*####***###**##*##***#*********#*} 

{body of pros ram "LdirProS"} 
{initialize Sraphics library} 
{initialize CRT} 

{if no error occurred...} 

{use the whole screen} 

{define appropriate window} 

{set the size for the characters} 
{every ten d e S r e e s} 

{empty the s t rin s} 

{convert the loop variable to deSrees} 
{attach prefix and suffix} 

{specify label direction} 

{move to the center of the screen} 
{label the text} 


{terminate Sraphics library} 
{proSram "LdirProS"} 
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LOCATOR 

$ d e b a 3 $ 

program Test(output)I 

import d 31 _ v a r s>d3l_types >d3l_lib >d3l_poly>d3l_ins 5 
type 


Comman d s = 

0 ♦ . 8 i 

{nine commands total} 

RealArray= 

array C1..5] 

of real 5 

const 

FS = 

c h r(28)5 

{risht arrow} 

BS = 

ch r(8) 5 

{left arrow or backspace} 

US = 

ch r(31) 5 

{up arrow} 

LF = 

c h r (10) 5 

{down arrow} 

CR = 

chr(13)5 

{carria3e return} 

M i n X = 

0! 

{minimum X ualue for screen} 

M i n Y = 

0 5 

{minimum Y ualue for screen} 

MaxX = 

5115 

{maximum X ualue for screen} 

M a x Y = 

389 5 

{maximum Y ualue for screen} 

X r a n 3 e = 

MaxX-MinX 5 

{total ran3e of X} 

Y ran 3e = 

MaxY-MinY 5 

{total ran3e of Y} 

LocatorAddress= 

25 

{2 for knob >708 for 9111} 

uar 

E r ro r_num: 

i n t e 3 e r 5 

{error return variable} 

I > T e m p I n t: 

i n t e 3 e r 5 

{utility variables} 

But tonValue: 

i n t e 3 e r 5 

{which button selected?} 

X i n > Y i n: 

real 5 

{location of digitized point} 

Xlast >Ylast: 

real 5 

{last di3itized point} 

CharWidth >CharHei3ht: 

real 5 

{char size in world coords} 

Done: 

boolean 5 

{are we supposed to quit?} 

NewLine: 

boolean 5 

{start new line?} 

TempSt rin3: 

Gst rin3255 5 

{utility variable} 

EchoSelect>EchoSelector: 0♦ ♦ 9■ 

i {menu selection} 

MenuTop: 

real 5 


CellHidth: 

real 5 

{width of menu spaces} 

Command: 

Commands 5 

{which command selected?} 

$pa3e$ <********************-fr***********************************************> 

procedure DrawMenu! 

Mar 

I: 

inte3e r 5 

{loop-control variable} 

Y lab el: 

real 5 

{Y position of entree label} 

Y a r r a y : 

RealArrav'5 
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•{temporarv variable> 

{X position of entree label} 
<X positions of entree cell} 
•{procedure MenuCell} 


{label text} 

{ \ 

{ \ 

{ > X positions for box 

{ / 

{ / 

XI abe 1: = MinX+Ce 1 lWi dth-st rlen(TempSt rin sf )*CharWidth/2 5 
end 5 

1. * 10: b e S i n 

TempPitch:=CellWidth#I5 {temporary shorthand variable} 

Xarray[l]:=Cellkidth+TempPitch5 { \ 
XarrayC2]:=2*CellWidth+TempPitch? { \ 

Xarray[31:=2*CellWidth+TempPitch5 { > X positions for box 

XarravCfl]:=CellWidth+TempPitch5 { / 

XarrayC51:=Ce1lWidth+TempPitch5 { / 

TempStrinS: = ' '? {label text} 

if I< = 8 then strwrite(TempStrinsf?1>TempInt»I s 1) 5 

Xlabel :=Xar ray Cl ]+CellWidt h/2+strlen( TempSt rinsf )*CharWid th/2? 


procedure MenuCell(I:inteSer)? 
va r 

TempPitch : real 5 

XIabe1: real ? 

X a r r a y : R e a 1A r r a y 5 

b e sf i n 
case I of 
0: b e S i n 

TempSt rin i : = ' STOP ' 5 
X a r r a y C1 ]: = 0 5 
XarrayC2]:=2#CellWidth5 
XarrayC33:=2*CellWidthi 
Xa r ray C43:=0 5 
Xa r ray C51:=0 5 


} 

} 

} 

} 

} 


} 

} 

} 

} 

} 


} 


e n d 

end? {case I of} 

polyline(5>Xarray?Yarray)5 {draw perimeter of cell} 

move (Xlabel »Ylabel) ? {move to the risfht place} 


Stext(TempStrinS)? {label the text} 

end? {procedure MenuCell} 

{ ... - ... - . } 

be Sin {procedure DrawMenu} 

YarrayC1]:=MinY5 { \ } 

Y a r r a y C 2 ]: = M i n Y ? { \ } 

YarrayC3]:=MenuTop? { > Y values for box } 

YarrayC4]:=MenuTop? { / } 

Yarray[51:=MinY? { / } 


Y1abe1:=MinY+(MenuTop-MinY)/2-Cha rHeisht/2 ? {Y position of label} 

for I:=0 to 10 do MenuCe11(1)5 {do all the entree cells} 

end? {procedure DrawMenu} 

$paSe$ {********************************************************************> 
f unction ChecKMenu(Kin:real):Commands ? 

beSin {function ChecKMenu} 

if Xin<2*Ce11Width then ChecKMenu: s 0 {X outside of menu?} 
else b e sin 

Tempint:=trune((Xin-Ce1lWidth)/Ce1lWidth)? {which sell chosen?} 
if Templnt>8 then ChecKMenu:=Command 
else ChecKMenu:=TempInt 
end? 

end? {function ChecKMenu } 
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{ a**#####************#**#**#*###****#*#*******#*##*#*#*###*##*#******} 

{Main proSram} 

{initialise the Graphics system} 

{which output device?} 

{output devic initialisation OK?} 


$paSe$ 
b e sf i n 

Sraphics_init 5 

display_init(3 >0 >Er ror_Num)5 
if Error.NumOO then be sin 

writeln('I failed to initialize the display.')? 
write In('Error number '>Error_Num:2>' was returned. ')5 
end {if Error_Num<>0} 
else b e Sin 

LOCATOR-init(Locato rAddress >E r ro r_Num)? 
if Error_Num<>0 then be Sin 

writelni'I failed to initialise the locator.')? 
writeln( 'Error number ' >Error_Num:2>' was returned.')5 
end {if Error_Num<>0} 

else beSin {No errors so far} 

set_aspect(511>389)5 {use whole screen} 

set_window(0>511>0>389)5 {scale window for data} 

CharWidth:=0.035*5115 {char width: 3.5% of screen width} 

Cha rHe i Sht: =0.05*389 5 {char heisht: 57, of screen heisht} 

set_char_size(CharWidth>CharHeisht)?{instal1 character size} 


MenuTop:=YranSe/13? 

C e 11W i d t h : = X r a n S e /12 5 
D rawMenu5 
NewLine:=true! 

EchoSelect:=4 ? 

Command:=4 5 
Done : =false ? 
repeat 

if NewLine then 
EchoSelecto r:=2 
else 

EchoSelector:=EchoSelect5 
await_locato r(EchoSe1ecto r >ButtonOalue >Xin >Yin)5 


{menu is 1/13 the total screen heisht} 
{each entree cell 1/12 screen width} 
{draw the menu} 

{yes > we are start ins a new line} 
{start proSram with default command} 
{ditto} 

{no> we're not done yet} 

{s t a r tin s a new line?} 


if Yin<MenuT op then be Sin 
NewLine:=t rue 5 
C o mm an d:= C h e c KM e n u(X in)5 
case Command of 


0 

1 

7 

3 

4 

5 

6 

7 

8 

end 
e n d 


D o n e : = t r u e ! 

EchoSelect 

EchoSelect 

EchoSelect 

EchoSelect 

EchoSelect 

EchoSelect 

EchoSelect 

EchoSelect 

{case} 

{if} 


{user choose menu option?} 

{start a new line next time} 
{determine menu selection} 

{which command} 

{yes> we're done with the proSram} 


= 15 
= 25 
= 3? 
= 45 
= 55 
= 85 
= 75 
= 85 


{ \ 
{ 

{ 

{ 

{ 

{ 

{ 

{ 


\ 


\ Select the appropriate 
/ EchoSe1ector. 


else beSin 

if NewLine then beSin 
NewLine:=false 5 
s e t _ e c h o _ p o s ( X i n > Y i n ) 5 
m o v e (X i n > Y i n ) 5 
Y1 a s t: = Y i n 5 
X1 a s t: = X i n 5 
end 


{not a menu selection} 

{start a new line} 

{now we're in the middle of a line} 
{move the Sraphics cursor} 

{cause 1 ine-d rawins to start there} 
{remember the last X... } 

{... and the last Y} 
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else b e ain 

set_echo_POs(Xin*Yin)5 { m o v e the Graphics cursor} 

if (Xin=Xlast) and (Yin=Ylast) then NewLine:=true 
else besfin 

case EchoSelect of 

1 *♦7s 1ine(Xin>Yin) 5 {draw a line) 

8: b e a i n 

1 i n e (X1 a s t* Y i n) 5 
1in e(Xin* Yin)5 
1 i n e (X i n > Y1 a s t) 5 
1 i n e (X1 a s t > Y1 a s t) 5 
NewLine:=t rue 5 


e n d 

otherwise 

end? {case EchoSelect of} 
X1 a s t; = X i n i 
Y1 a s t: = Y i n 5 


{remember the last X» ♦ ♦ } 
{... and the last Y} 


end 
e n d 5 


e n d 5 

until Done; 
locator-term; 
display_te rm; 
end? {Error trap} 
e n d 5 

Sraphics.termi 
e n d. 


{are we done yet?} 
{terminate the locator} 
{terminate the display} 


{terminate the araphics system} 
{Main pro a ram} 


LogPlot 

proar am LoaPlot(keyboard* o ut pu t ) 5 

import d a1_1ib 5 

const 


Xmin = 

-45 

{ \ 

} 


Xmax = 

25 

{ \ Decade minima 

} 


Y m i n = 

o; 

{ / and maxima , 

} 


Ymax = 

35 

{ / 

} 


C rt = 

3! 

{device address of araphics 

raster} 

C o n t r o 1 = 

0; 

{device control word? 

ia n 0 red for CRT} 

type 

RDataType= 

const 

X v a 1 u e s = 

array [ 1. . 15 3 of real? 

RDataTypeC0.0003» 0.0009* 0.004> 0.008* 0.01> 

0,07 * 

0,22* 0.5* 

Y v a 1 u e s = 

1,2* 2,G » 
RDataTypeCl.l* 4,5 > 

8,9 * 18.G * 34 » 58 * 971 ; 
13.38* 45,9* 80.33* 130,7 

* 34G * 

690,4 * 


899 * 933 > 903» 841* 720* 505 * 39015 


v a r 

Error: inteaer? {disp1 ay_init return variable? 0 s ok} 

Decade: inteaer; 

Units* UpperLimit: inteaer? 

X , Y: real? 

I: inteaer; 
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$pa Se$ {#******#******#***#******##***###*##******#*•##**#***#**#******##*##*} 


function L o $ 10(X: real): real! 

{ - } 

{ This function returns the logarithm to the base ten of a number. > 

{-> 

const 

LoS_10= 2.30258509299 5 {los to the base e of 10> 

beSin {function "LoSlO") 

LoSlO; = In(X)/Lo S_10 5 


end! {function "LoSlO") 

$pa se$ {********************************************************************> 
be Sin {body of proSram "LoSP1 ot" ) 

Sraphics_iriit! {initialize the Sraphics system) 

d i s p 1 a y _ i n i t ( C r t > C o n t r o 1 > E r r o r) ! 
if Er ro r = 0 then beSin 
set-aspect(511>389) ! 
set-window(Xmin>Xmax >Ymin>Ymax) 5 

{===== Draw and label loSarithmic X-axis Srid =============================) 

for Decade:=Xmin to Xmax do beSin {one decade equals one mantissa cycle) 
if Decade=Xmax then UpperLimit:=1 
else UpperLimit:=9! 

for Units: = 1 to UpperLimit do beSin {do 2-9 if not last cycle) 

X:=Decade+LoSlO(Units) ! 
moue(X >Ymin ) ! 

1ine(X >Ymax ) 5 
end! {for units) 
end! {for decade) 

{————— Draw and label loSarithmic Y-axis Srid =============================) 

for Decade:=Ymin to Ymax do beSin {one decade equals one mantissa cycle) 
if Decade=Ymax then UpperLimit:=1 
else UpperLimit:=9 ! 

for Units:=l to UpperLimit do beSin {do 2-9 if not last cycle) 

Y:=Decade+LoSlO(Units) 5 
moue(Xmin>Y) ! 

1ine(Xmax >Y)5 
end! {for units) 
end! {for decade) 

{ = = = = = Draw the loSarithmic data curue = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = ) 
for I:=1 to 15 do beSin 

if 1 = 1 then moue(LoSlO(XValuest13) >LoSlO(YualuesC13)) 
else 1in e(Lo S10(XUa1ue s CI]) >Lo s10(Yu a 1ue s C11))5 
end! {for i) 

end! {Error*0?) {end of conditional code) 

Sraphics_te rm! {terminate Sraphics library) 

end. {prosram "LoSPlot") 
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MarkrProg 

program M a r K rP r o 3(o ut p ut) I 
import d 31 _ 1 i b > d 31 _ i n <=i 5 
const 

C r t A d d r = 35 

C o nt r o1W o r d= 0 5 

type 

MarKerNumType= array CO*.4] of integer? 

DataT'/pe= array CO. .10] of integer! 

const 

Ma rKe rNumber= Ma rKe rNumTy pe C2 >5>G >8>1315 

Data= Dat aTy pe C 0 >2 > 1 >4 >3 >3 > 1 >5 >3 >4 >6 ]! 

Mar 

ErrorReturn: integer? 

I> J: integer? 

$pa 3e$ { ********************************************************************> 

besfin {program "MarKrPro3"> 

3raphics_init5 

di spI ay_init (C rtAdd r >Cont ro 1 Wo rd >E r ro rRetu rn )5 
if ErrorReturn = 0 then be3in 
set_aspect(511>389)5 
s e t_win d ow(0 >10> 0 >10)5 

m o ve(0 >0)5 1in e (0 >10)5 1 i ne(10> 10)5 1in e(10> 0)5 1ine(0 >0)5 
for I:=0 to 4 do be3in 
for J:= 0 to 10 do be3in 

if JOO then ma rk e r (Ma rKe rNumbe r CI ]) 5 
if J=0 then moue(J>DataCJl+I) 
else 1ine(J>DataCJ]+I)5 
end? {for j > 
end; {for i> 
end! {ErrorReturn=0?> 

Sraphics_te rm 5 

end. {pro3ram "MarkrPro3"> 
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PLineProg 

p ro $ ram PLinePro $( output) 5 
import dsl-lib»dsl_inq! 
const 

CrtAddr= 3 5 

Cont ro lklo rd = 0! 

type 

RDataType= array CO* • 10] of real 5 

const 

Xua 1ue s = RDat aT ype C 0 >1>2 >3 >4 >5 >G >7 >8 >3 >10]5 

Yvalues= RDataTypeCO >2 »1>3 >3 1 1 >5>3 >4 »6]5 

var 

ErrorReturn: integer 5 

X> Y: RDataType? 

$paSe$ {ft****#****#*************###*******************#*#**##***************} 
b e Sin {proSram"PLineProtf"> 

£(raphics_init; 

di spI ay_init(CrtAddr >Contro1 Wo rd>E rro rReturn)5 
if ErrorReturn = 0 then be Sin 
set-aspect(511>389) ! 
s e t _ w i n d o w ( 0 > 10 > 0 > 10) 5 

m o ue(0 1 0) ! 1in e(0 >10)5 1in e(10 >10)5 1in e(10 >0)5 1in e(0 > 0)5 
X: = X u a 1 u e s 5 Y: = Y u a 1 u e s 5 
po ly 1 ine(11 >X >Y)5 
end! {ErrorReturn=0?> 
s raphics_te rm 5 

end. {proSraiu "PLinePros"} 
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PolyProg 


pros ram PolyProS(output)5 
iwpo rt 

d S1 _ 1 i b > d 31 _ t y p e s , d S1 _ p o 1 y , d S1 _ i n s 5 
const 

27 5 
35 
0 5 


{prosraw name same as file name) 


{access the necessary procedures) 


MaxPoints : 
C rt = 

Cont ro1 = 
type 
Reals= 

W o r d = 
InteSers= 
const 
X v a 1 u e s = 


Y v a 1 u e s = 


QpCodes= 


var 

Error: 

I: 

LemX, LemY: 
QpSe1ectors 
Points: 


{numbe r 
{device 
{device 


of points in arrays) 
address of Sraphics raster) 
control word! iSnored for CRT) 


array [1,.MaxPoints] of real? 
-327G8»,327G7 5 

array [ 1«.Maxpoints) of Word! 


{to contain X 
{1G-bit word) 
{to contain 


and Y values) 


op. selecto rs) 


Reals C 

1.5, 

2.5 , 

2.5, 1.5,-1,5 

-2.5 

-2.5, 

-1.5, 

{OctaSon) 


-2.5, 

2.5 , 

2.5 ,-2.5 ,-2.5 




{Box) 


-2.5, 

-4,5,- 

2.5 , - 5.0 , - 4»0 




{Left leS) 


2.5 , 

4.5, 

2.5, 5.0, 4,0 




{RiSht 1e s) 


-0.5, 

-1.0, 

1.0, 0.53? 




{Nozzle) 

RealsC 

1.0, 

2,0 , 

3.0, 4.0, 4,0 

3.0 

2.0, 

1.0, 

{OctaSon) 


1.0, 

1.0,- 

2.0,-2.0, 1.0 




{Box) 


-2.0, 

-4,0 , 

0,0 »-4.0 ,-4.0 




{Left leS) 


-2.0 , 

-4.0, 

0,0 ,-4.0 ,-4.0 




{Risht 1e s) 


-2.0 , 

- 3,0 > - 

3.0,-2.035 




{Nozzle) 

InteSersCZj 

1,1,1, 

1 ,1 ,1 ,1 , 




{OctaSon) 


2, 

1,1,1, 

1 , 




{Box) 


2 , 

1 ,1 ,2, 

1 , 




{Risht 1e s ) 


2, 

1 ,1 ,2, 

1 , 




{Left les) 


2 , 

1,1,13 

5 




{Nozzle) 


i n t e S e r 5 
integer! 
Reals? 
InteSers? 
i n t e S e r 5 


{display_init return variable? 0 
{loop control variable) 

{so we can pass it to "polySon") 
{ditto) 

{ditto) 


ok) 


$pase$ {#*##*#*#####*#*#*****#**#******#***************#***###****##****##**) 


b e S i n 

LemX:=Xvalues5 
LemY:=Yvalues ? 

OpSelectors:=OpCodes? 

Points:=MaxPoints? 
sraphics_init ? 

d i s p 1 a y _ i n i t (C r t .Control .Error) ? 
if Er ro r = 0 then beSin 
set_aspect(511 »389)? 
s e t _wind o w(-13 >13 ,-10 ,10)5 
PolySon(Points>LemX ,LemY>OpSe1ectors)5 
end! {Error=0?) 

S raphics.te rm 5 
end. {prosram "Pol'/ProS") 


{body of pros ram "Poly Pros") 

{ \ Put into variable array so ) 

{ > it can be passed by ) 

{ / reference into the DGL proc.) 
{put constant into an array variable) 
{initialize Sraphics library) 
{initialize CRT) 

{if no error occurred...) 

{use the whole screen) 

{invoke isotropic units) 

{draw the lines) 

{end of conditional code) 

{terminate Sraphics library) 

{end of pros ram) 
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SinAspect 


{Set Sraphics routines} 

{address of internal CRT} 

{device control? 0 for CRT} 

{variable for initialization outcome} 


proSram S i n As p e c t ( o ut put) 5 
import d 31_1ib 5 
const 

CrtAddr= 35 

C o n t r o 1W o r d = 0 5 

var 

ErrorReturn: integer? 

X: i n t e 3 e r 5 

Y: r e a 1 I 

$ in elude ' DGLPRG:DataPoint'$ 

$pa3e$ {********************************************************************} 
b e 3 i n 

3raphics_init5 

d i s p 1 ay _ i n i t (C rt Ad d r»Con t ro 1Wo rd >E r ro rRetu rn ) 5 
if ErrorReturn = 0 then be Sin 
set_aspect(511»389)5 
se t_window(0 >100 >0.1G >0.18)5 
for X: = l to 100 do be Sin 
Y : = D a t a P o i n t (X) 5 
if X = 1 then move(X >Y) 
else 1 ine(X »Y) 
end! {for X:=l to 100} 
end! {ErrorReturn=0?} 

3raphics.te rm 5 
e n d. 


{function: y:=f(x) } 

***** 

{body of proSram "SinAspect"} 
{initialize the Sraphics system} 
{which output device?} 
{output device initialization OK' 
{use the whole screen} 

{scale the window for the data} 
{100 points total} 

{Set a point from the function} 
{move to the first point...} 
{..♦and draw to all the rest} 


{terminate the Sraphics pacKaSe} 
{proSram "SinAspect"} 
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SinAxesl 


p r o S r am SinAxesl(outPUt)* 


import dsl_lib* 
const 
CrtAdd r = 

Cont roIWo rd = 
type 

RoundType= 


d S1 _ i n q 5 

3! 

0; 

(Up > Down * Near)! 


{Set Sraphics routines) 

{address of internal CRT) 
{device control? 0 for CRT} 

{used by procedure Round2> 


var 

CharWidth: 
CharHeiSht: 
Text: 

Erro rReturn 


$ i n c 1 u d e 


real 5 
real! 

st rin S[2015 
i ri t e s e r 5 
i n t e S e r! 
real? 

'DGLPRGrDataPoint'$ 


{width of char in world coords) 
{heisht of char in world coords) 
{temporary hoi dins place for text) 
{variable for initialization outcome) 


{function: y: = f(x ) ) 


$paSe$ {#**#*#*#**#*####**#***###******##**#**#**#******#**#*#****#**#**#***} 
function Round2(N* M: real! Mode: RoundType): real! 


{ ... - . - ---- ) 

{ This function rounds "N" to the nearest "M" * accordins to "Mode"* This ) 
{ function worKs only when the arSument is in the ranSe of MININT*.MAXINT. ) 
{-.....) 


const 

epsilon= IE-105 


{roundoff error fudSe factor) 


var 

Rounded: real 5 

NeSative: boolean! 

b e s i n 

NeSative: = (N<0♦0) ! 
if NeSative then beSin 
N: = abs(N) ! 

if Mode = Up then Mode:=Down 
else if Mode=Down then Mode:=Up! 
e n d ! 


{temporary hoi dins area) 

{f1 aS: "It is neSative?") 
{body of "Round2") 

{is the number neSative?) 

{work with a positive number) 
{if number is neSative* ...) 
{♦♦♦reverse up and down) 


case Mode of 

Down: Rounded:=trunc(N/M)*M! 

Up: b e Sin 

Rounded: =N/M! 
if abs(Rounded-round(Rounded))>epsi1 on then 
Rounded: = (t rune(Rounded) + 1.0)*M 
else 

Ro un d ed : = t r un c (Rounded) *M! 


{should we round the number*. ♦) 
{...left on the number line?) 


{...risht on the number line?) 


e n d! 

Near: Rounded:=trune(N/M+M*0.5)*M! 
end! {case) 

if NeSative then Rounded : —Rounded ! 
Round2:=Rounded 5 
e n d ! 


{...to the nearest multiple?) 

{reinstate the siSn) 

{assiSn to function name) 
{function "Round2") 
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$paSe$ -C*****************************************«-**************************> 
procedure Xaxis(SpacinS»Location»Xmin>Xmax: real! 


HaJor: integer; 

MaJsize >Minsize: real) 5 

{ --- - . } 

{ This procedure draws an X-axis at any intersection point on the plotting > 
{ surface* Parameters are as follows: } 

{ SpacinS: The distance between tick marks on the axis. > 

{ Location: The Y-ualue of the X-axis. > 

{ Xmin*Xmax: The left and risht ends of the X-axis* respectively. } 

{ Major: The number of tick marks to Se before drawinS a major tick > 

{ mark* If MaJor=5» every fifth tick mark will be major. > 

{ MaJsize: The length » in current units* of the major tick marks* > 

{ Minsize: The lensth* in current units* of the minor tick marks. > 

{-----} 


SemiMinsize: real* 

SemiMaJsize: real? 

Counter: inteSer! 

b e 3 i n 

mo ve(Xmin>Loc at i on ) * 

1ine(Xmax >Locat i on ) 5 

SemiMinsize:=Minsize*0.55 

SemiMajsize:=Majsize*0.5! 

X:=Round2(Xmin*Spacins*Majo r >Down) 5 
Counte r:=0 5 

while X<=Xmax do be Sin 
if Counter=0 then beSin 

m o v e < X > L o c a t i o n - S e m i M a J s i z e ) 5 
line(X*Location+SemiMaJsize)? 
end {Counter=0?> 
else beSin 

move(X*Location-SemiMinsize)? 

1in e(X * L o c a tio n+S e miMin s i z e)5 
end! {else b e Sin > 

Counter: = (Counter+1) mod Major? 

X:=X+Spacin s ; 
end? {w h i 1 e > 
end! 


{current X of tick marks} 

{half of minor tick size} 

{half of major tick size} 

{keeps track of when to do major ticks} 
{body of procedure "Xaxis" } 

{left end of the x-axis} 

{draw x-axis} 

{half of every tick mark needs to...} 
{...be on each side of the axis} 

{round start point to next lower major} 
{start with a major tick} 

{loop until Sreater than Xmax} 

{should we do a major tick?} 

{move to bottom of major tick* and...} 
{..♦draw to the top of major tick} 


{move to bottom of minor tick* and...} 
{...draw to the top of minor tick} 

{keep track of which lensth tick to do} 
{So to next tick position} 

{loop if not done} 

{procedure "X a xis" } 
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$pa$e$ {a**#*****#**#*#**##*##****###***#*******###*##*#**###**###*****#**#*) 


procedure Yaxis (Spacing >Locat ion >Ymin >Ymax : real 5 

Ma jo r: integer? 

MaJsize>Minsize: real)! 

{ --- - --- > 

{ This procedure draws an Y-axis at any intersection point on the plotting > 
{ surface* Parameters are as follows: > 

{ Spacing: The distance between tick marks on the axis. > 

{ Location: The X-value of the Y-axis. ) 

{ Ymin»Ymax: The left and risht ends of the Y-axis > respectively♦ > 

{ Major: The number of tick marks to sfe before drawing a major tick ) 

{ mark. If M a j o r = 5 > every fifth tick mark will be major. ) 

{ MaJsize: The length» in current units> of the major tick marks. > 

{ Min size: The len$th> in current units t of the minor tick marks. > 

{-- -------- ) 


var 

Y: real! 

SemiMinsize: real! 

SemiMaJsize: real! 

Counter: integer! 

b e i i n 

move(Location>Ymin) ! 

1ine(Location»Ymax ) ! 

SemiMinsize:=Minsize*0.5 5 
SemiMajsize:=Majsize*0.5! 

Y:=Round2(Ymin iSpacin S*MaJo r >Down) ! 
Counte r:=0 5 

while YOYmax do beSin 
if Counte r = 0 then besin 

m o v e (L o c a t i o n - S e m i M a j s i z e > Y) ! 

1ine(Location + SemiMaJsize>Y) ! 
end TCounter=0?> 
else beSin 

m o v e (L o c a t i o n - S e m i M i n s i z e > Y) ! 

1ine(Location + SemiMinsize>Y) ! 
end! {else b e ain > 

Counter:=(Counter+1) mod Major! 

Y:=Y+Spacin $ 5 
end! {while) 
end! 


{current Y of tick marks) 

{half of minor tick size) 

{half of major tick size) 

{keeps track of when to do major ticks) 
{body of procedure "Axes") 

{lower end of the y- a xis) 

{draw y-axis) 

{half of every tick mark needs to...) 
{...be on each side of the axis) 

{round start point to next lower major) 
{start with a major tick) 

{loop until Greater than Xmax) 

{should we do a major tick?) 

{move to left of major tick» and...) 
{..♦draw to the risfht of major tick) 


{move to left of major tick » and...) 
{.♦.draw to the risfht of major tick) 

{keep track of which lensth tick to do) 
{So to next tick position) 

{loop if not done) 

{procedure "Yaxis") 
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$paSe$ {a**********************#**************************##*****#****#**#**} 
b e S i n {body of prodraw "SinAxesi"} 

Sraphics_init» {initialize the Graphics system} 

dispi ay_init(CrtAddr>Contro1 Word>ErrorReturn)5 {which output device?} 


if ErrorReturn = 0 then be Sin 
set-aspect(511>389) i 
Cha rWidth:=2*0«04 5 
CharHeiSht:=2*0.08 5 
set_char_size(CharWidth>CharHeiSht)5 
Text: ='MOLTAGE VARIANCE ' 5 
for X:=-3 to 3 do b e S i n 


{output device initialization OK?} 
{use the whole screen} 

{char width: 4X of screen width} 
{char height: 4% of screen height} 
{install character size} 

{define text to be labelled} 

{make "bold" label} 


move(-(st rlen(Text)*CharWidth)/2+X*0.002 >0.9)5 


{center label} 


{label the text} 


{vertical labels} 

{char width: 2.5X of screen width} 
{char heisht: 4X of screen heisht} 
{install character size} 

{define the text to be labelled} 


Stext(Text) i 
e n d ! 

set_text_rot(0>l) 5 
CharWidth5=2*0.025! 

CharHeiSht:=2*0♦04 > 
set_char_size(CharWidth>CharHeiSht) 5 
Text:='VoltaSe'! 

move(-0.9>-(strlen(Text)*CharWidth)/2)5 {start point of centered label} 

Stext(Text)? {label the text} 

Text:='Time (seconds)'? {define the text to be labelled} 

set_text_rot(1>0) ! {horizontal labels} 

move(-(strlen(Text)*CharWidth)/2>-0.92)5 {start point of centered label} 

sftext(Text); {label the text} 

set_viewport(0.1>0.99>0.12>0.7)5 {define subset of screen} 

move(-i>-l)5 line(-l»l)5 lined >1)5 line(l>-l)5 line(-l>-l)5 {frame} 


set_window(0 >100 >0.IB >0.18)5 
Xaxis(1>0.IB >-50 >150 >5 >0.001>0.0005) 
Yax i s (0.001 >0 >0.1 >0,2 >5 >2 > 1) 5 
for X: = l to 100 do be Sin 
Y:=DataPoint(X) ! 
if X = 1 then move(X>Y) 
else 1 in e (X > Y)5 
end! {for X:=l to 100} 
end! {ErrorReturn=0?} 

Sraphics_te rm 5 
e n d ♦ 


{scale the window for the data} 
{draw the x-axis} 

{draw the y-axis} 

{100 points total} 

{Set a point from the function} 
{move to the first point...} 
{...and draw to all the rest} 


{terminate the Sraphics packase} 
{prosram "SinAxesi"} 



A-64 Listings of Example Programs 


SinAxes2 


p ro 3 rain S in Ax e s2 ( output) i 

import d 31_1ib 5 

const 

C rtAdd r = 

C o n t r o 1W o r d = 
type 

RoundT'/pe = 
uar 

CharWidth: 

CharHei3ht: 

Text: 

E r ro rRetu rn: 

I: 

X: 


3! 

o; 


•(Set Sraphics routines} 

{address of internal CRT} 
{device control? 0 for CRT} 


(Up > Down f Near)? 


{used bv function RoundZ} 


ClipXmin # ClipXmax 
ClipYminf ClipYmax 


real 5 
real 5 

st rin3(2015 
i n t e 3 e r 5 
i n t e 3 e r 5 
i n t e 3 e r 5 
real ? 
real! 
real 5 


{width of char is world coords} 
{heiSht of char is world coords} 
{temporary hoi din 3 place for text} 
{variable for initialization outcome} 
{return variable from STRWRITE} 


{soft clip limits in x} 
{soft clip limits in y} 
{function: y:=f(x) } 


^include 'DGLPRG:DataPoint '$ 

$PaSe$ {*####*#*#*#*######*#**##*#*#*##*#####***###***#**##*###*###*******#*} 
procedure ClipLimit(Xmin» Xmax t Ymin t Ymax: real)? 

} 
} 
} 
} 


t- 

{ This procedure 

defines 

the four 3lobal 

variables which specify where 

the 

{ soft clip limits are. 

I 





b e 3 i n 


{body of 

procedure "ClipLimit"} 


if Xmin<Xmax then 

b e 3 i n 

{ 

\ 


} 

ClipXmin:=Xmin 5 


{ 

\ 

Force the minimum soft 

} 

ClipXmax:=Xmax 5 


{ 

\ 

clip limit in X to be 

} 

end 


{ 

\ 

the smaller of the two 

} 

else b e 3in 


{ 

/ 

X values passed into 

} 

ClipXmin:=Xmax 5 


{ 

/ 

the procedure. 

} 

ClipXmax:=Xmin 5 


{ 

/ 


} 

e n d 5 


{ 

/ 


} 

if Ymin<Ymax then 

b e 3 i n 

{ 

\ 


} 

ClipYmin:=Ymin ? 


{ 

\ 

Force the minimum soft 

} 

ClipYmax:=Ymax 5 


{ 

\ 

clip limit in Y to be 

} 

end 


{ 

\ 

the smaller of the two 

} 

else b e 3 i n 


{ 

/ 

Y values passed into 

} 

ClipYmin:=Ymax 5 


{ 

/ 

the procedure. 

} 

ClipYmax:=Ymin i 


{ 

/ 


} 

end? 


{ 

/ 


} 


end? 


{procedure "ClipLimit"} 


$pa3e$ {********************************************************************} 
procedure C1i pD r aw (X1» Y1> X2 t Y2: real)? 

{-.- . } 

{ This procedure takes the endpoints of a line» and clips it. The soft } 
{ clip limits are the real 3lobal variables ClipXmin> ClipXmax* ClipYmin> } 
{ and ClipYmax. These may be defined throush the procedure ClipLimit. } 

{ ... } 
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label 
1 ; 
type 
Ed Ses = 

OutOfBounds= 
va r 

Out *0utl*0ut2:OutOfBounds 5 
X > Y: real? 


(Left »R i sf h t > T o p > B o 11 o m) 5 
set of E d S e s 5 


{possible e d S e s to cross! 
{set of e d s e s crossed! 


procedure Code(X> Y: real? var Out; OutOfBounds)i 


besin 
Out:=[]5 

if x<ClipXmin then 0ut:=Eleft3 
else if x>ClipXmax then Out:=[riSht3! 
if y<C1 ipYmin then Out: =0ut + C bottom] 
else if y>ClipYmax then Out;=0ut+Ctop]5 
end 5 


{nested procedure "Code"! 
{null set! 

{off left e d S e ? ! 

{off risht e d s e ? ! 

{off the bottom?! 

{off the top?! 

{nested procedure "Code"! 


b e s i n 

Code(XI>Y1> 0 u 11)5 
Code(X2 >Y2 *0ut2)5 


{body of procedure "ClipDraw"! 
{figure status of point 1! 

{ f i s u r e status of point 2! 


while (Qutl<>[]) or (0ut2< >C 3) do be sin {loop while either point out of ranSe! 


if (Outl*0ut2)<>C3 then Soto 15 
if 0u11<>C3 then 0ut;= 0u11 
else 0 ut:= 0 u 12 5 
if left in Out then besin 


{if intersection non-null* no line! 


{Out is the non-empty one! 

{it crosses the left edSe! 
y;=Y1 +(Y2-Y1)*(ClipXmin-X1)/(X2-X1)j{ad Just value of y appropriately! 
x:=C1ipXmin ! {new x is left edSe! 

end {left in Out?! 

else if risht in Out then besin {it crosses risht edSe! 

y:=Y1 +(Y2-Y1)*(ClipXmax-X1)/(X2-X1)Kad Just value of y appropriately! 
x:=C1ipXmax 5 {new x is risht edSe! 

end {risht in Out?! 

else if bottom in Out then besin {it crosses the bottom edSe! 

x:=Xl + (X2-X1)#(ClipYmin-Yl)/(Y2-Y1)Had Just value of x appropriately! 
y;=Cl ipYmin5 {new y is bottom edSe! 

end {bottom in Out?! 

else if top in Out then besin {it crosses the top edSe! 

x:=Xl + (X2-X1)*(ClipYmax-Y1)/(Y2-Y1)j{ad Just value of x appropriately! 


y;=C1ipYmax ! 
end? {top in Out?! 
if 0ut = 0u11 then besin 

X1: = x 5 Yl: = y5 Code(x >v >Outl)5 
end {Out=Outl?! 
else besin 

X2:=x5 Y2:=y 5 
end! {else besin! 
end? {while! 
m o v e ( x 1 t y 1) 5 
1 ine(x2 »y2)5 
1; end? 


{new y is top edse! 


{redefine first end point! 


Code(xfy»0ut2)5 {redefine second end point! 


{if we Set to this point# the line#**! 
{ ♦ ♦«i s completely visible* so draw it! 
{procedure "ClipDraw"! 
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$pa3e$ {a#**#*####*#********#######*#***#***####*###*###*##*#*#####**#*#****} 


function Round2(N> M: real! Mode: RoundType): real! 

{ --- > 

{ This function rounds "N" to the nearest "M"> accordinS to "Mode". This > 
{ function works only when the argument is in the ranSe of MININT..MAXINT. > 
{-----> 


const 

e p s i 1 o n = 1E -10 5 

var 

Rounded: real! 

Nesfatiue: boolean? 

b e 3 i n 

Ne Sative: = (N<0♦0)5 
if Negative then be3in 
N: = a b s (N) 5 

if Mode=Up then Mode:=Down 
else if Mode = Down then Mode : = L)p5 
end? 


{roundoff error fudSe factor} 

{tewpo ra ry ho Id in 3 a real 
{f1 as: "It is negative?"} 
{body of "RoundZ"} 

{is the number negative?} 

{work with a positive number} 
{if number is negative> ♦♦.} 
{..♦reverse up and dow n } 


case Mode of 

Down: Rounded:=t rune(N/M)*M 5 
Up: b e 3in 


{should we round the nurnbe r♦..} 
{...left on the number line?} 


Rounded:=N/Mi {...ri3ht on the number line?} 

if abs(Rounded-round(Rounded))>epsi Ion then 
Ro un d e d: = (t runc(Ro un d e d) +1.0)*M 
else 

R o un d e d: = t r un c (Ro un d e d) #M 5 


e n d 5 

Near: Rounded:=trune(N/M+M*0.5)#M5 {...to the nearest multiple?} 

end? {case} 

if NeSative then Rounded:=-Rounded i {reinstate the si 3 n} 

RoundZ:=Rounded5 {assiSn to function name} 

end? {function "RoundZ"} 

$paSe$ {****#****#****##*#*##*#*#*##*#*****#*#**#**#**#**********##*##*****#} 
procedure XaxisClip(Spacin3# Location: real; Major: in t e 3 e r 5 
MaJsize»Minsize: real); 


{ ----- } 

{ This procedure draws an X-axis at any intersection point on the pio11in3 } 
{ surface. Parameters are as follows: } 
{ SpacinS: The distance between tick marks on the axis. } 
{ Location: The Y-value of the X-axis. } 
{ Major: The number of tick marks to Se before draw in 3 a major tick } 
{ mark. If Majo r = 5 > every fifth tick mark will be major. } 
{ Majsize: The lenSth# in world units> of the major tick marks. } 
{ Minsize: The length# in world units# of the minor tick marks. } 
{.} 


var 

X: 

SemiMajsize: 
SemiMinsize: 
Counte r: 


real 5 
real 5 
real 5 
integer? 


{X position of tick marks} 

{half of major tick size} 

{half of minor tick size} 

{keeps track of when to do major ticks} 
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b e S i n 

SemiMaJsize:=MajSize*0*5 i 
Se w i M i ii s i z e : = M i nS i z e*0 ♦ 5 5 
Counters 2 05 


{body of procedure "XaxisC1ip"> 
{calculate half of major tick size} 
{calculate half of win or tick size} 
{start with a major tick} 


ClipDraw(ClipXmin .Location>C1ipXmax .Location)5 {draw the X-axis itself} 

X:=Round2(C1ipXmin>5pacinS*Major .Down)5 {round to next lower major} 
while X<=C1ipXmax do be Sin {loop until S re ate r than ClipXmax } 

if Counter=0 then {do a major tick mark?} 

ClipDraw(X .Location-SemiMajsize >X .Location+SemiMajsize) 
else 

ClipDraw(X.Locat ion-Semi Minsize >X»Location +SemiMinsize)! {do minor tick} 
Counter: = (Counter+1) mod Major? {keep track of which lenSth tick to do} 

Xs=X+SpacinS! {So to next tick position} 

end? {while} 

end? {procedure "XaxisClip"} 

$paSe$ {********************************************************************} 
procedure Y a x i s C1 i p (S p a c i n S > Location: real! Major: inteSer? 

Majsize. Min size: real)? 


This procedure draws an Y-axis at any intersection point on the piottinS 
surface. Parameters are as follows: 

SpacinS: The distance between tick marks on the axis. 

Location: The X-va 1ue of the Y-axis. 

Major: The number of tick marks to Se before drawinS a major tick 

mark. If Majo r = 5 . every fifth tick mark will be major. 

Majsize: The lenSth. in world units, of the major tick marks. 

Mins ize: The lenSth. in world units, of the minor tick marks. 


Y: real? {Y position of tick marks} 

SemiMajsize: real? {half of major tick size} 

SemiMinsize: real? {half of minor tick size} 

Counter: inteSer5 {keeps track of when to do major ticks} 

beSin {body of procedure "YaxisClip"} 

SemiMajsize:=Majsize#0.5? {calculate half of major tick size} 

SemiMinsize:=Minsize#0.55 {calculate half of minor tick size} 

Counter:=05 {start with a major tick} 

ClipDraw(Location >C1ipYmin .Location .ClipYmax)5 

Y:=Round2(ClipYmin>SpacinS#Major .Down)! {round to next lower major} 
while Y< = C1ipYmax do be Sin {loop until S re at e r than Ymax } 

if Counter=0 then {should we do a major tick?} 

ClipDraw(Location-SemiMajsize.Y>Location+SemiMajsize>Y) 
else 

ClipDrawiLocation-SemiMinsize>Y .Location + SemiMinsize >Y)? 

Counter: = (Counter+1) mod Major? {keep track of which size tick to do} 

Y:=Y+Spacins ? {So to next tick position} 

end? {while} 

end? {procedure "YaxisClip"} 
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$paSe$ <********************************************************************> 
be Sin {body of pros rant "SinAxes2"} 

Sraphics_initi {initialize the Sraphics system} 

display_init(CrtAddr>ControIWord>ErrorReturn)5 {which output device?} 


if ErrorReturn = U then be Sin 
set_aspect(511>389) i * 

CharWidth:=2*0.045 

CharHeiSht:=2*0.08 i 

set_char_size(CharWidth>CharHeiSht)5 

Text: = 'VOLTAGE VARIANCE'5 

for X:=-3 to 3 do beSin 

move(-(st rlen(Te xt)*CharWidth)/2+X* 
Stext(Text)5 
e n d 5 

set_text_rot(0>l) 5 
CharWidth:=2*0.025 5 
CharHeiSht:=2*0♦045 
set_char_size(CharWidth >CharHeisht) i 
Text:='VoltaSe'» 

mo v e(-0♦97 >-(s t r1en(Te x t)*Ch a rWid t h)/ 
stext(Text) 5 
Text:='Time ( s e c o n d s) ' 5 
set_text_rot(l>0)i 
move(-(strlen(Text)*CharWidth)/2>- 
Stext(Text) i 

set_viewport(0.1>0.99 >0.12 >0♦7)5 
m o v e ( -1 > -1) 5 1ine(-1>1) 5 line(l *1) i 
s e t_wind ow(0 > 100 >0.16 >0.18) ! 

ClipLimit(0 >100 >0,16 >0.18 > i 
XaxisClip(1>0.IB >5 >0.0008>0.0004) i 
YaxisClip(0.0005 >0 >5 >2 >1) i 
CharWidth:=1.35 
Cha rHeiSht:=0.00085 
set_char_size(CharWidth>CharHeiSht) 
Text: = '' i 

for X:= 0 to 10 do beSin 
s t rw r i t e (Te x t >1 > I >X* 10:0) 5 
move(X*10-(strlen(Text)*CharWidth)/ 
St ext(Text) 5 
end? {for x} 

Y:=0.185 


{output device initialization OK?} 

{use the whole screen} 

{char width: 4 1 of screen width} 

{char heisht: 4Z of screen heisht} 
{install character size} 

{define text to be labelled} 

{maKe "bold" label} 

.002>0.9)5 {center label} 

{label the text} 

{vertical labels} 

{char width: 2.5Z of screen width} 

{char heisht: 4% of screen heisht} 
{install char size} 

{define text to be labelled} 

) 5 {start point of centered label} 

{label the text} 

{define text to be labelled} 

{horizontal labels} 

92) 5 {start point of centered label} 

{label the text} 

{define subset of the screen} 

1in e (1 >-1) 5 line(-l»-i)i {frame} 

{scale the window for the data} 

{define the soft clip limits} 

{draw the clipped X-axis} 

{draw the clipped Y-axis} 

{char width: 1.3 user X units wide} 
{char heisht: .0008 user Y units hiSh} 
{install character size} 

{erase previous definitions of st rin S} 
{eleven X labels} 

{convert number to strins} 
i>0.1593)5 {center the label} 

{label the text} 

{startinS Y position for Y labels} 


repeat 

s t r w r i t e (T e x t >1 > X > Y: 8:4) 5 
move(-8 »Y- 0.0002) i 
Stext(Text) 5 
Y a =Y+0 *0025 $ 
until Y>0 .18 5 
for X: = l to 100 do be Sin 
Y:=DataPoint(X) i 
if X =1 then move(X >Y) 
else 1in e(X > Y)5 
end? {for X:=l to 100} 
end? {ErrorReturn=0?} 
s raphics_te rm 5 
end. 


{convert number to strinS} 
{center the text vertically} 
{label the text} 

{next Y position} 

{t e rmin a tin S condition} 

{100 points total} 

{Set a point from the function} 
{move to the first point...} 
{...and draw to all the rest} 


{terminate the Sraphics pacKaSe} 
{proSram "3inAxes2"} 
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SinClip 


program SinClip(outPiit)? 

import d 31_1ib 5 

const 

C r t A d d r = 

C o n t r o 1W o r d = 

type 

RoundType= 
va r 

CharWidth: 

CharHei3ht: 

Text: 

ErrorReturn: 

X: 

Y: 

ClipXmin> ClipXmax: 

ClipYmin> ClipYmax: 


{Set Sraphics routines} 

{address of internal CRT} 
{device control? 0 for CRT} 


(Up > Down » Near) ? 


{used by function RoundZ} 


$ i n c 1 u d e 


real 5 
real i 

st rin3[201 5 
i n t e 3 e r 5 
i n t e 3 e r 5 
real! 
real 5 
real I 

'DGLPRGrDataPoint'$ 


{width of char is world coords} 

{ h e i 3 h t of char is world coords} 
{temporary hoi din 3 place for text} 
{variable for initialization outcome} 


{soft clip 
{soft clip 
{ f u n c t i o n : 


limits in 
limits in 
y : = f ( x ) } 


x} 

y} 


$pa3e$ {********************************************************************} 
procedure ClipLimit(Xmin > Xmax t Ymin t Ymax: real)? 

} 
} 
} 
} 


X - 

{ This procedure 

defines 

the four 31o b a 1 

variables which specify where 

the 

{ soft clip limits are. 

/ 





b e 3 i n 

if Xmin<Xmax then 

b e 3 i n 

{ 

\ 


} 

ClipXmin:=Xmin 5 


{ 

\ 

Force the minimum soft 

} 

ClipXmax:=Xmax 5 


{ 

\ 

clip limit in X to be 

} 

e n d 


{ 

\ 

the smaller of the two 

} 

else b e 3in 


{ 

/ 

X values passed into 

} 

ClipXmin:=Xmax 5 


{ 

/ 

the procedure. 

} 

ClipXmax:=Xmin ? 


{ 

/ 


} 

e n d 5 


{ 

/ 


} 

if Ymin<Ymax then 

b e 3 i n 

{ 

\ 


} 

ClipYmin:=Ymin 5 


{ 

\ 

Force the minimum soft 

} 

ClipYmax:=Ymax 5 


{ 

\ 

clip limit in Y to be 

} 

e n d 


{ 

\ 

the smaller of the two 

} 

else b e 3 i n 


{ 

/ 

Y values passed into 

} 

ClipYmin:=Ymax5 


{ 

/ 

the procedure. 

} 

ClipYmax:=Ymin ? 


{ 

/ 


} 

end? 


{ 

/ 


} 


e n d ? 

$pa3e$ {*#******#*****#*****#*#*###**##**#*#****#*#***#*##*##******#**#***#*} 
procedure ClipDraw(Xi> Y1 » X2» Y2: real)? 

{-.-.} 

{ This procedure takes the endpoints of a line» and clips it. The soft } 
{ clip limits are the real Slobal variables ClipXmin. ClipXmax > C1ipYmin > } 
{ and ClipYmax. These may be defined throuSh the procedure ClipLimit. } 

{-----.-.-.} 

label 

1 ? 
type 

E d 3 e s = (Left>Ri3ht»Top>Bottom)? 

OutOfBounds= set of EdSes? 
var 

Out »0utl>0ut2:OutOfBounds 5 

X» Y: real? 


{possible ed3es to cross} 
{set of edSes crossed} 
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procedure C o d e(X> ' 
b e sf i n 
Out; = C1 ! 

if x<ClipXmin then 
else if x>ClipXmax 
if v<C1ipYwin then 
else if y>ClipYmax 
e n d 5 

{ - 


real 


0 u t: = C1 e f 13 
then 0 u t: = [riS h t ] 5 
Out:= 0 u t + C bottom] 
then 0 u t;= 0 u t + [t o p]5 


i.i a r Out: Out Of Bounds) 5 

{nested procedure "Code"} 
{null set) 

{off left edsfe?> 

{off risht e d S e ? } 

{off the bottom?} 

{off the top?} 

{nested procedure "Code"} 


do 
1 5 


b e S i n 

Code(XI>Y1»0utl)5 
Code(X2t Y 2>0ut2)! 
while < 0 u 11 < > C1) or (OutZOCl) 
if (Outl*0ut2)<>C1 then Soto 
if Out 1< >C] then 0ut:= 0u11 
else 0 u t:= 0 u 12 5 
if left in Out then be Sin 

y :=Y1+(Y2-Y1)*(ClipXmin-X1)/(X2 
x:= C1ipXmin 5 
end {left in Out?} 
else if r i S h t in Out then b e Sin 
y: =Yl+(Y2-Y1)*(ClipXmax-Xl)/(X2 
x : =C1ipXmax 5 
end {riSht in Out?} 
else if bottom in Out then beSin 
x:=X1 + (X2-X1) *(Cl ip 
v :=C1ipYmin 5 
end {bottom in Out?} 
else if top in Out then be Sin 
x s =X1 + (X2-X1)*(ClipYmax-Y1)/(Y 
y :=C1 ipYmax 5 
end? {top in Out?} 
if 0ut = 0u11 then beSin 


{body of procedure "ClipDraw"} 

{f i Su re status of point 1} 

{f i Su re status of point 2} 
be Sin {loop while either point out of ran Se } 
{if intersection non-null* no 1 ine} 

{Out is the non-empty one} 

{it crosses the left edse} 

•X1)i{adjust value of y appropriately} 

{new x is left edse} 

{it crosses risht edSe} 

■ X1)?{adJust value of y appropriately} 

{new x is risht edse} 


{it crosses the bottom edSe} 
min-Y1)/(Y2-Y1> 5{adJust value of x appropriately} 
{new y is bottom edSe} 

{it crosses the top edSe} 

Yi)!{adJust value of x appropriately} 
{new y is top edSe} 


X1: = x 5 Y1: = y 5 
end { 0 u t = 0 u 11? } 
else b e Sin 

X2: = x 5 Y2: = y? 

end? {else b e sin} 
end; {while} 
m o v e ( x 1 > y 1) 5 
1 i n e ( x 2 * y 2) 5 
1: end! {procedure 


C o de(x > y >0 u 11)5 {redefine first end point} 


C o d e(x * y »0 u 12) ; {redefine second end point} 


{if we Set to this point* the line...} 
{...is completely visible* so draw it} 
{return} 


"ClipDraw"} 


$paSe$ {ft*#*##**##***#******#*#******************#****#******#**********#***} 
function Round2(N> M: real! Mode: RoundType): real? 

{--- ----- } 

{ This function rounds "N" to the nearest "M"> accordinS to "Mode". This } 
{ function works only when the arSument is in the ranSe of MININT..MAXINT. } 


const 

e p s i 1 o n = 
var 

Rounded: 
N e S a t i v e 


IE-105 

real! 
boolean 5 


{roundoff error fudSe factor} 

{temporary h o1din S area} 

{f 1 as: "It is neSative?"} 
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b e 3 i n 

Ne Sative: = (N<0. 0) i 
if Nesat ive then besin 


{body of "Round2" > 

{is the number neSative?) 


N: = a b s (N) 5 

if liode = L)p then Mode:=Down 
else if Mode=Down then M o d e : = U p ! 
e n d 5 

case Mode of 

Down: Rounded:=trune(N/M)*M 5 
Up: b e S i n 


{work with a positive number) 
{if number is neSative» . ♦♦) 
{...reverse up and down > 

{should we round the nurnbe r. . . ) 
{...left on the number line?) 


Rounded : =N/M 5 {...risht on the number line?) 

if abs(Rounded-round(Rounded))>epsi1on then 
Rounded: = (t rune(Rounded) + 1♦0)*M 
else 

Rounded:= t rune(Rounded)*M i 


e n d 5 

Near: Rounded:=trune(N/M+M#0.5)#M! {...to the nearest multiple?) 

end! {case) 

if Negative then Rounded: =-Rounded ! {reinstate the si Sn ) 

RoundZ:=Rounded5 {assiSn to function name) 

end? {f un c t i o n "R o und 2") 

$pa Se$ {****-****************************************************************) 
procedure XaxisClip(SpacinS> Location: real! Major: i n t e S e r 5 
Majsize>Minsize: real)! 


{ - ) 

{ This procedure draws an X-axis at any intersection point on the plotting ) 
{ surface. Parameters are as follows; ) 
{ Spacing: The distance between tick marks on the axis. ) 
{ Location: The Y-value of the X-axis. ) 
{ Major: The number of tick marks to Se before drawinS a major tick ) 
{ mark. If Ma jo r = 5 > every fifth tick mark will be major. ) 
{ Majsize: The lentfth* in world units > of the major tick marks. ) 
{ Minsize: The lenSth» in world units» of the minor tick marks. ) 
{-) 


v a r 

X: real; 

SemiMajsize: real? 

SemiMinsize: real? 

Counter: integer! {keeps track of when to do major ticks) 

besin {body of procedure "XaxisClip") 

SemiMajsize:=MajSize#0.55 
SemiMin siz e:= MinSiz e#0.5 5 

Counter:=0; {start with a major tick) 

Cli pD raw(ClipXminfLocation»C1ipXmax»Locat i on ) ; 

X:=Round2(ClipXmin»SpacinS*MaJor»Down)5 {round to next lower major) 
while X < = C1ipXmax do be Sin 
if Counter=0 then 

Cli pD raw(X >Location-SemiMajsize >X >Loo ation+SemiMajsize) 
else 

Cl ipDraw(X^Location-SemiMinsize>X»Location + SemiMinsize) ! 

Counter:=(Counter+1) mod Major! 

X:=X + Spacin S ! 
end! {while) 
e n d 5 


{procedure "XaxisClip") 
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$pa3e$ {ft****#**#****#*##*****#*************#*******************************} 


procedure YaxisClip(Spacin3> Location: real! Major: integer? 

Majsize > Minsize: real) 5 

{-------} 

{ This procedure draws an Y-axis at any intersection point on the plotting > 
{ surface, Parameters are as follows: } 

{ Spacing: The distance between tick marks on the axis, } 

{ Location: The X-value of the Y-axis, > 

{ Major: The number of tick marks to 3e before drawing a major tick > 

{ mark. If Major=5> every fifth tick mark will be major, } 

{ Majsize: The length, in world units, of the major tick marks, } 

{ Minsize: The length, in world units, of the minor tick marks, } 

{-----} 


var 

Y: real. 

Semi Mins i ze : real 5 
SemiMajsize: real; 

Counter: integer! 

b e 3 i n 


{keeps track of when to do major ticks} 
{bod/ of procedure "YaxisClip"} 


SemiMajsize:=Majsize*0,5 5 
SemiMin siz e:= Min size*0,5 5 

Counter:=05 {start with a major tick} 

ClipDraw(Location ,C1ipYmin .Location >C1 ipYmax); 

Y:=Round2(ClipYmin>Spacin3*Major ,Down ) 5 {round to next lower major} 
while Y<=ClipYmax do be3in 
if Counter=0 then 

ClipDraw(Location-SemiMajsize ,Y ,Location+SemiMajsize ,Y) 
else 

ClipDraw(Location-SemiMinsize ,Y ,Location+SemiMinsize ,Y) 5 
Counter:=(Counter+1) mod Major! 

Y:=Y+Spacin 3 5 
end? {while} 


end! {procedure "YaxisClip"} 

$pa3e$ {********************************************************************} 
be3in {pro3ram "SiriClip"} 

3raphics_init5 {initialize the 3raphics system} 

display_init (CrtAddr ,Cont rolWo rd ,Erro rReturn ) 5 {which output device?} 


if ErrorReturn=0 then be3in 
set-aspect(51 1 ,389)5 
CharWidth:=2*0,045 
Cha rHei3ht:=2*0,08! 
set_char_size(CharWidth >CharHei3ht)5 
Text:VOLTAGE VARIANCE'5 


{output device initialization OK?} 
{use the whole screen} 

{char width: 47 of screen width} 
{char h e i 3 h t: 87, of screen heisht} 
{install the character size} 
{define the text to be labelled} 
{make "bold" label} 


for X: = -3 to 3 do be3in 

move(-(strlen(Text)*CharWidth)/2+X*0.002 ,0,9)5 {center label} 

3text(Text)5 {label the text} 

e n d; 


set_text_rot(0,1)5 {vertical labels} 

CharWidth:=2*0,0255 {char width: 2,57 of screen width} 

CharHei3 h t:=2*0,04 ! {char h ei3 h t: 47 of screen h e i 3 h t} 

set_char_size(CharWidth ,CharHei3ht)5 {install character size} 
Text:='VoltaSe'; {define text to be labelled} 

move(-0,9 ,-(str1en(Text)*CharWidth)/2)5 {start point of centered label} 

Stext(Text),’ {label the text} 

Text:='Time (seconds)'! {define text to be labelled} 

set_text_rot(1 ,0)5 {horizontal labels} 

move(-(strlen(Text)*CharWidth)/2 ,-0,92)5 {start point of centered label} 

3text(Text)5 {label the text} 
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set_viewport(0.1*0.39 »0.12 >0 * 7)5 
(it o v e ( -1 * -1) » 1 i n e ( - 1 * 1) 5 1 i n e (1 > 1) 5 
s e t _win do w(0 *100 *0*16*0*18)5 
C1 i pL i m it(0 »100 *0,1G *0,18)5 
XaxisC1ip(1*0.1G >5 *0.0008*0.0004) i 
Y a x i s C1 i p ( 0 * 0 01 *0*5>2*1) * 
for X: = l to 100 do be Sin 
Y: = D a t a P o i n t (X) * 
if X=1 then move(X*Y) 
else 1in e(X * Y)» 
end* {for X:=l to 100} 
end* {ErrorReturn=0?> 

S raphics_te rut 5 
e n d. 


{define subset of window} 

1in e(1>-1)5 1ine(-1>-1) 5 {frame} 
{scale the window for the data} 
{define the soft clip limits} 
{draw the clipped X-axis} 

{draw the clipped Y-axis} 

{100 points total} 

{Set a point from the function} 
{move to the first point*..} 
{.♦.and draw to all the rest} 


{terminate the Graphics packaSe} 
{program "SinClip"} 


SinLabell 


p r o S r am S i nLab e 11 ( o u t pu t) i 
import dsl-lib* dSl_in=T* 
const 

CrtAddr= 35 

ControIWord= 05 

v a r 


Erro rReturn 
St rns: 
Character: 


$ i n c 1 u d e 


integer? 
s t r i n S C 7 ] 5 
i n t e s e r ? 
integer? 
real 5 

'DGLPRG:DataPoirit'$ 


{Set Sraphics routines} 

{address of internal CRT} 

{device control! 0 for CRT} 

{variable for initialization outcome} 
{seven characters in '0o11ase ' } 

{loop counter for label 1 ins} 


{function: 


f(x) } 


$paSe$ {*###**#**#***#***#****#**#***#*#*##*#***#****#****#*#**####*********} 


b e S i n 

Sraphics-init! 
display _init(CrtAddr*CoritrolWord»Erro rReturn)* 
if ErrorReturn = 0 then be Sin {output 


{body of pros ram "SinLabell"} 
{initialize Sraphics system} 

{which output device?} 
device initialization OK' 


set_aspect(511>380)5 {use the whole screen} 

move(-0.45*0.9)5 {startins point for the title} 

Stext( 'VOLTAGE VARIANCE ')5 {label the plot} 

StrnS: = 'VoltaSe ' 5 {the y-axis label} 

move(-0.95*0.3)5 {start inS point for the y-axis title} 

for Character:=l to strlen(StrnS) do {follow every character...} 

Stext(str(StrnS>Character*1)+chr(13)+chr(10))5 {...with a CR/LF} 


m o v e ( - 0.3 * - 0.9) 5 
S t e x t( ' Tim e (seconds)')* 
s e t _ vie w p o r t(0.1 >0.99*0.12*0.7)5 
m o v e ( -1 > -1) 5 1 i n e (1 > -1) 5 1 i n e (1 > 1) 5 
set_window(0 *100 >0.16 *0.18)5 
for X: = l to 100 do be Sin 
Y: = D a t a P o i n t (X) 5 
if X =1 then move(X >Y) 
else 1in e(X > Y ) 5 
end* {for X:=l to 100} 
end* {E r ro rRe t urn = 0?} 

Sraphics_te rm * 
e n d. 


{startinS point for the x-axis label} 
{x-axis label} 

{define subset of screen} 
line(-l *1) 5 line(-l*-l)5 {frame} 

{scale the window for the data} 

{100 points total} 

{Set a point from the function} 

{move to the first point...} 

{.♦.and draw to all the rest} 


{terminate the Sraphics packaSe} 
{prosram "SinLabell"} 
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SinLabel2 


p r o s r aw 5inLabel2(outPut) ! 
i w p o r t d $ 1 _ 1 i b > d S 1 _ i n p 5 
const 

CrtAddr= 35 

C o n t r o 1W o r d = 0 5 

uar 


CharWidth: 
Cha rHeiSht: 
Text: 

ErrorReturn 


real! 
real? 

strinS[20]5 
integer; 
integer? 
real 5 

'DGLPRGsDataPoint'$ 


■(Set Graphics routines) 

{address of internal CRT) 

{device control? 0 for CRT) 

{width of character in world coords) 
{height of character in world coords) 
{t e w p o r a r y hoi dins place for text) 
{variable for initialisation outcowe) 


Y: 

$include 'DGLPRG:DataPoint'$ {function: v.=f(x) ) 

$paSe$ {ft**********#********************************************************) 
besin {body of program "SinLabel2") 

Sraphics_init? {initialize the Graphics systew) 

display_init(CrtAddr>Contro1 Word>ErrorReturn)5 {which output device?) 


if ErrorReturn = 0 then be Sin 
set_aspect(511»389) 5 
CharWidth:=2*0.04 5 
Cha rHeiSht:=2*0♦08 5 
set_char_size(CharWidth .CharHeiSht) 5 
Text: ='VOLTAGE VARIANCE' 5 
wove(-(strlen(Text)*CharWidth)/2>0.9)i{So 
stex t(Text) 5 
set_text_rot(0>l)5 
CharWidth:=2*0.0255 
Cha rHeiSht:=2*0.04 5 
set_char_size(CharWidth>CharHeisht)5 
Text: = 'VoltaSe' 5 

wove(-0.9»-(strlen(Text)*CharWidth)/2)5 
St ext(Text) 5 
set_text_ rot(1>0)5 


{output device initialization OK?) 

{use the whole screen) 

{char width: 47 of screen width) 

{char heiSht: 87, of screen heiSht) 
{install character size) 

{define the text to be labelled) 

to start point for centered label) 
{label the text) 

{vertical labels) 

{char width: 2.57 of screen width) 

{char heiSht: 47 of screen heiSht) 
{install character size) 

{define the text to be labelled) 

{start point of centered label) 
{label the text) 

{horizontal labels) 


T e x t: = 'Tiw e (seconds)'? 
wove(-(st rlen(Tex t)*CharWidth)/2 > 
Stext(Text) 5 

set_viewport(0.1»0 ♦99 »0.12 » 0.7)5 
w o v e ( -1 t -1) ? 1 i n e ( -1 > 1) 5 1 i n e (1 »1) 5 
set_window(0 #100 »0,IB >0.18) 5 
for X: = l to 100 do be Sin 
Y : = D a t a P o i n t ()•<) ? 
if X = 1 then wove(X > Y) 
else 1in e(X »Y)5 
end? {for X:=l to 100) 
end? {ErrorReturn=0?) 

Sraphics.te rw? 
e n d. 


{define the text to be labelled) 

0.92)? {start point of centered label) 

{label the text) 

{define subset of screen) 
lined »-l)5 1 ine ( -1 >-1) 5 {frawe) 

{scale the window for the data) 

{100 points total) 

{Set a point f row the function) 

{wove to the first point...) 

{.♦.and draw to all the rest) 


{terwinate the Sraphics pacKaSe) 
{prosraw "SinLabel2") 
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SinLabel3 


p ro S r am Sin L a b e13(o ut pu t) 5 
import d S1_1ib > d S 1 _in q 5 
const 

C r t A d d r = 35 

C o n t r o 1W o r d = 0 5 

u a r 

CharWidth: 

Cha rHeiSht: 

Text: 

ErrorReturn 


real 5 
real 5 

st rinst2015 
integer! 
integer! 
real 5 

' DGLPRG:DataPoint'$ 


{Set Graphics routines) 

{address of internal CRT) 

{device control; 0 for CRT) 

{width of character in world coords) 
{heisht of character in world coords) 
{temporary hoi dins place for text) 
{variable for initialization outcome) 


Y: 

$ i n c 1 u d e 
$paSe$ 
b e s i n 

Sraphics_init! 
d i spI ay_ini t (C rtAdd r >Cont ro 1 Wo rd>Er ro rRetu rn ) 5 
if ErrorReturn = 0 then be Sin 
set_as pe c t(511>389)5 
CharWidth:=2*0♦045 
Cha rHeiSht:=2*0.08 5 
set_char_size(CharWidth >CharHeiSht) 5 
Texts ='VOLTAGE VARIANCE ' 5 
for X:=-3 to 3 do beSin 


{func tion: y : = f(x ) ) 
{********************************************************************) 

{body of proSram "SinLabel3") 
{initialize the Sraphics system) 

{which output device?) 

{output device initialization OK?) 

{use the whole screen) 

{char width: HI of screen width) 

{char heisht: 8Z of screen heiSht) 
{install character size) 

{define the text to be labelled) 

{make "bold" label) 


move(-(st rlen(Text)*Cha rWidth)/2+X*0.002>0.9)5 


{center label) 


Stext(Text) 5 
end; {for X) 
set_text_rot(0>l) 5 
CharWidth:=2*0♦0255 
Cha rHeiSht:=2*0.045 
set_char_size(CharWidth >CharHeiSht)5 
Text:='VoltaSe'5 
mo v e(-0♦9 >-(st r1en(Te x t)*Ch a rWid t h)/2) 5 
Stext(Text) 5 
set_text_rot(l > 0 ) 5 


{label the text) 


{vertical labels) 

{char width: 2.5% of screen width) 

{char heisht: 41 of screen heisht) 
{install character size) 

{define the text to be labelled) 

{start point of centered label) 
{label the text) 

{horizontal labels) 


T e x t: = ' Time (s e c o n d s)'5 {define 

mo ve(-(s t r1en(Text)*CharWidth)/2>-0.92)5 


the text to be labelled) 

{start point of centered label) 


Stext(Text)5 

set.viewpo rt(0.1>0.99 >0.12 >0.7)5 
m o ve(-1 > -1) 5 1 i n e( -1 > 1) 5 line(l >1)5 
s e t_wind ow(0>100 >0.1G >0 ♦ 18) 5 
for X: = i to 100 do be Sin 
Y: = D a t a P o i n t (X) 5 
if X =1 then move(X >Y) 
else 1in e < X > Y)5 
end 5 {for X: = 1 to 100) 
end? {ErrorReturn=0?) 

Sraphics_te rm 5 
e n d ♦ 


{label the text) 

{define subset of screen) 

1in e(1>-1) 5 1 i n e(-1 > -1) 5 {frame) 
{scale the window for the data) 
{100 points total) 

{Set a point from the function) 
{move to the first point...) 
{.♦.and draw to all the rest) 


{terminate the Sraphics packaSe) 
{pros ram "SinLabel3") 
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SinLine 


pro3ram SinLine(outPUt)5 

import dsl-lib? {Set Sraphics routines} 

const 


C r t A d d r = 3! 

C o n t r o 1 = 0 5 

va r 


{address of internal CRT} 
{device control? 0 for CRT} 


ErrorReturn: integer? {variable for initialization outcome} 

X: integer! 

Y: real? 

$include 'DGLPRG:DataPoint'$ {function: y : = f(x ) } 

$pase$ {********************************************************************} 


b e S l n 

Sraphics.init? 

d i s p 1 a y _ i n i t (C r t A d d r > C o n t r o 1 > E r r o r R e t u 
if ErrorReturn = 0 then be Sin 
for X: = l to 100 do be Sin 
Y: = D a t a P o i n t (X) 5 
if X=1 then move(X/100 >Y) 
else 1ine(X/100>Y)5 
end? {for X:=l to 100} 
end; {ErrorReturn=0?} 

S raphics.te rm 5 
e n d. 


{body of pros ram "SinLine"} 
{initialize sr a p hic s system} 

)5 {which output device?} 

{output device initialization OK?} 
{100 points total} 

{Set a point from the function} 
{move to the first point...} 
{...and draw to all the rest} 


{terminate the Sraphics pacKaSe} 
{prosram "SinLine"} 


SinViewpt 


proSram SinViewpt(outPut)5 

import d S1 _ 1 ib 5 

const 


C r t A d d r = 

C o n t r o 1W o r d ; 
va r 

Erro rReturn 


35 
0 5 


l n t e S e r i 
X: integer! 

Y: real! 

^include 'DGLPRG:DataPoint'$ 


{Set Sraphics routines} 

{address of internal CRT} 

{device control? 0 for CRT} 

{variable for initialization outcome} 


{function 


= f(x) } 


$paSe$ {#*###*#**#*#****#**#**#***#***#*****#****##*#****#*#**###****#**#***} 


b e s i n 

Sraphics.init5 
display_init(CrtAddr»ControlWord»ErrorReturn) 
if ErrorReturn = 0 then be sin 
set-aspect(511»389)? 
set_viewpo rt(0,10 >0,99 >0.12 >0.70)5 
move(-lt-i)? 1in e(1»-1)5 1 i ne(1 1 1) 
s e t_w i n d ow (0 1 100 1 0.1B >0«18) ? 
for X: = 1 to 100 do be Sin 
Y: = D a t a P o i n t (X) ? 
if X =1 then move(X t Y) 
else line(X »Y) 
end! {for X:=1 to 100} 
end! {ErrorReturn=0?} 

S raphics_te rm 5 
e n d ♦ 


{body of pros ram "SinViewpt"} 
{initialize the Sraphics system} 
{which output device?} 
{output device initialization OK' 
{use the whole screen} 

{define subset of screen} 
line(-l»l)5 line(-1.-1)5 {frame} 
{scale the window for the data} 
{100 points total} 

{Set a point from the function} 
{move to the first point♦.♦} 
{.♦.and draw to all the rest} 


{terminate the Sraphics packaSe} 
{prosram "SinViewpt"} 
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SinWindow 


program SinWindow(output)5 

import d S1_1ib 5 

const 

CrtAddr= 3! 

C o n t r o1W o r d = 0 5 


{Set Sraphics routines} 

{address of internal CRT} 
{device control 5 0 for CRT} 


uar 

E r ro rReturn: inte Se r 5 {variable for initialization outcome} 

K: i n t e S e r 5 

Y: r e a 15 

^include 'DGLPRGsDataPoint'$ {function: y:=f(x) } 

{****************************************************************************} 


be sin {body of pros ram "SinWindow"} 

Sraphics_init; {initialize the Sraphics system} 

di sp! ay_init(CrtAddr»ControIWord>ErrorReturn)5 {which output device?} 


if ErrorReturn = 0 then be Sin 
s e t_wind ow(0 >100 >0.1B > 0.18)5 
for X: = 1 to 100 do be sin 
Y: = D a t a P o i n t (X) ! 
if X=1 then move(X»Y) 
else line(X#Y) 
end? {for X:=l to 100} 
end! {ErrorReturn=0?} 
Sraphics_term5 
e n d. 


{output device initialization OK?} 
{scale the window for the data} 
{100 points total} 

{Set a point from the function} 
{move to the first point..*} 
{...and draw to all the rest} 


{terminate the Sraphics pacKaSe} 
{proSram "SinWindow"} 
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Graphics Procedures 

Graphics Control 

CLEAR_DISPLAY Clears the graphics display. 

CONVERT_WTODMM Converts from world coordinates to mil¬ 
limetres on the graphics display. 

CONVERT_WTOLMM Converts from world coordinates to mil¬ 
limetres on the locator surface. 

DISPLAY_FINIT Enables the output of the graphics library to 

be sent to a file. 

DISPLAY_1NIT Enables a device as the logical graphics dis¬ 

play. 

DISPLAY-TERM Disables the enabled graphics display de¬ 

vice. 

GRAPHICSERROR Returns an integer error code and can be 

used to determine the cause of a graphics 
escape. 

GRAPHICS-INIT Initializes the graphics system. 

GRAPHICS_TERM Terminates the graphics system. 

INPUT-ESC Allows the user to obtain device dependent 

information from the graphics system. 

INQ_COLOR_TABLE Inquires the color modeling parameters for 
an index into the device-dependent color 
capability table. 

INQ_PGN_TABLE Inquires the polygon style attributes for an 

entry in the polygon style table. 

INQ_WS Allows the user to determine characteristics 

of the graphics system. 

MAKE_PIC_CURRENT Makes the picture current. 

OUTPUT-ESC Performs a device dependent escape func¬ 

tion on the graphics display device. 

SET-TIMING Selects the timing mode for graphics output. 

Graphics Output Primitives 

GTEXT Draws characters on the graphics display. 

INT-LINE Draws a line from the starting position to the 

world coordinate specified. 

INT-MOVE Sets the starting position to the world coor¬ 

dinate position specified. 

INT-POLYGON Displays a polygon-set starting and ending at 

the specified point adhering to the specified 
polygon style exactly as specified (i.e., de¬ 
vice-independent results). 

INT_POLYGON_DD Displays a polygon-set starting and ending at 
the specified point adhering to the specified 
polygon style in a device-dependent fashion. 

INT-POLYLINE Draws a connected line sequence starting at 

the specified point. 


MARKER Outputs a marker symbol at the starting posi¬ 

tion. 

MOVE Sets the starting position to the world coor¬ 

dinate specified. 

POLYGON Displays a polygon-set starting and ending at 

the specified point adhering to the specified 
polygon style exactly as specified (i.e., de¬ 
vice-independent results). 

POLYGON_DEV_DEP Displays a polygon-set starting and ending at 
the specified point adhering to the specified 
polygon style in a device-dependent fashion. 

POLYLINE Draws a connected line sequence starting at 

the specified point. 

Primitive Attributes 

SET_CHAR_SIZE Sets the character size attribute for graphical 

text. 

SET-COLOR Sets the color attribute for output primitives 

except for polygon interior fill. 

SET_COLOR_MODEL Chooses the color model for interpreting pa¬ 
rameters in the color table. 

SET_COLOR_TABLE Redefines the color description of the speci¬ 
fied entry in the color table. This color defini¬ 
tion is used when the color index is selected 
via SET-COLOR. 

SET_LINE_STYLE Sets the line style attribute. 

SET_LINE_WIDTH Sets the line-width attribute. The number of 
line-widths possible is device dependent. 

SET_PGN_COLOR Selects the polygon interior color attribute 
for subsequently generated polygons by pro¬ 
viding a selector for the color table. 

SET_PGN_LS Selects the polygon interior line-style attri¬ 

bute for subsequently generated polygons 
by providing a selector for the device depen¬ 
dent line-style table. 

SET_PGN_STYLE Selects an entry in the polygon style table, 

thus selecting the attributes for subsequently 
generated polygons. 

SET_PGN_TABLE Defines the attributes of an entry in the poly¬ 

gon style table. 

SET_TEXT_ROT Specifies the text direction. 

Viewing Transformations 

SET-ASPECT Redefines the aspect ratio of the virtual coor¬ 

dinate system. 

SET_DISPLAY_LIM Redefines the logical display limits of the 
graphics display. 

SET-VIEWPORT Sets the boundaries of the viewport in the 

virtual coordinate system. 


LINE 


Draws a line from the starting position to the 
world coordinate specified. 


SET-WINDOW 


Defines the boundaries of the window. 



Graphics Input 

AWAIT_LOCATOR 

LOCATOR_INIT 

LOCATOR-TERM 

SAMPLE-LOCATOR 

SET_ECHO_POS 

SET-LOCATOR-LIM 


Waits until activation of the locator button 
and then reads from the enabled locator de¬ 
vice. 

Enables the locator device for input. 

Disables the enabled locator device. 

Samples the current locator device. 

Defines the locator echo position on the 
graphics display. 

Redefines the logical locator limits of the 
graphics locator. 
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Graphics Procedure Reference 


Appendix 

B 


The Pascal Programming Language was designed as a teaching language, and as such was in¬ 
tended to be machine independent. This attribute has its good and bad points. Being machine 
independent makes the language more easily transportable, but also ensures that it is difficult, if not 
impossible, to access any innovative hardware features provided by a specific computer system. 

To allow easy access to the graphics and I/O features of your Pascal system, a set of procedures and 
functions are provided in the LIBRARY file on the SYSVOL: disc. This reference describes the 
syntax and semantics for the procedures and functions provided to access graphics. 

The small block of text labelled IMPORT, immediately below the title of each entry, lists the module 
which must be declared in an IMPORT statement in order to access the feature. Modules which are 
needed by these imported modules, if any, are shown in the Module Dependency Table at the end 
of this reference. 

Concerning HP-HIL 

HP-HIL, which stands for Hewlett-Packard Human Interface Link, is a new interface for connect¬ 
ing peripherals. DGL supports HP-HIL absolute locators (e.g., the tablet and the Touchscreen), 
and relative locators (e.g., mouse and knob), through high-level procedures which already in¬ 
terface to other locators. In the procedures library section that follows, these application-level 
DGL procedures deal with HP-HIL: 

• await_locator 

• input.esc 

• locator-in it 

• locato r_te rm 

• out put_esc 

• sample-locator 

• set-locator.lim 

These calls are the only support DGL interface to HP-HIL locators. 

HP-HIL locators are supported by DGL only when attached to the built-in HP-HIL port — the 
one attached to the mainframe keyboard controller 8042. HP-HIL locators are not supported 
on pre-3.1 revisions of the Series 200/300 Pascal operating system. Mouse and knobs have 
additional support in Pascal 3.2, using the driver CONFIG:REL (ACCESS:REL on double sided) 
with LOCATORJNIT selector 202. 

From one to seven locators can be accessed on a single HP-HIL, but the supported configuration 
is only one active locator (or other HP-HIL “locator device”) at a time per system. HP-HIL 
devices are activated and deactivated by calling OUTPUT_ESC. If more than one locator is 
installed, scaling and limiting is performed on the largest machine-unit limits found on any 
tablet, or the first mouse or knob encountered. 
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DGL support of HP-HIL tablets requires the files HPHIL and DGL_ABS to have been executed 
or put in INITLIB before accessing the tablet. Both files are found on the CONFIG: (ACCESS: 
for double sided) disc of your Pascal Operating System. If either of these files have not been 
executed, an appropriate error value is returned from the routine LOCATORJNIT. 

Enhanced DGL support of HP-HIL mouse and knob locators also requires the files HPHIL and 
DGL_REL to have been executed or put in INITLIB before accessing the device. As stated 
above, both files are found on the CONFIG: (ACCESS: for double sided) disc of your Pascal 
Operating System. If either of these files have not been executed, an appropriate error value 
is returned from the routine LOCATORJNIT. 


CAUTION 

It is inadvisable to connect or disconnect HP-HIL devices while the 
system is running, as this may hang the system. The only times where 
connecting and disconnecting HP-HIL devices is safe is when the sys¬ 
tem’s power is off, or when the system’s Command Interpreter prompt 
is being displayed and the time/date display (from the Version com¬ 
mand) is not being displayed. 


HP-HIL Touchscreen 

Touchscreens are considered to be tablets, and are supported, and included in the limit of one 
“absolute locator device”; that is, a Touchscreen and an HP-HIL tablet simultaneously active on 
the one system is an unsupported configuration because there are two absolute locator devices. 

If you have more than one absolute locator on the HP-HIL (e.g., both a Touchscreen and a tablet), 
output.esc with an opcode of 1090 gives you an opportunity to deactivate all but the desired 
device, and automatically rescale to it. 

The Touchscreen is supported in essentially the same way as the tablet, with a few device¬ 
dependent differences: 

AWAIT_LOCATOR 

The “button press” used for the Touchscreen is the action of removing the finger from the screen, 
instead of the action of touching the screen. This was chosen in order to be compatible with BASIC. 

Caveats 

The Touchscreen’s “input pixel” size is 7.5 millimeters in both the X and the Y direction, and the 
actual input resolution is 57 x 43. It is quite a low-resolution digitizer in the classic sense of graphics. 
As a selector (“let’s choose an object from the screen”) it is not bad, but DGL provides no direct 
support for selecting or “picking” an object; you must construct a data base design and algorithms if 
you wish to use the Touchscreen for this purpose. 

If there are two active absolute locators of vastly different resolutions on the HP-HIL, one of them is 
going to suffer. The device with less lines of resolution is only going to be able to access a small part 
of the world coordinate system, no matter what the user does. This is due to the design of DGL, 
which can only really have one locator active at a time. 



Graphics Procedure Reference B-3 


All HP-HIL absolute locator devices are initially lumped together, as HP-HIL does not provide a 
really good way of specifying a particular device on the loop (e.g., specifying the Touchscreen 
instead of the tablet as the locator, or vice-versa). The result of all this is that we scale the DGL 
locator against the active device with the most lines of input resolution. Note that X and Y are scaled 
independently, so if there were both a tall, narrow locator and a short, wide locator on the loop, X 
scaling would come from the wide device, and Y from the tall device-again compatible with 
BASIC. This is the essential reason more than one active absolute locator is not supported on the 
HP-HIL with DGL. 

Again, the output.esc procedure allows you to selectively disable HP-HIL devices, so you can 
avoid having more than one active absolute locator on the loop at any one time. 


HP-HIL Relative Locator 

The discussion of opcode 1090 also applies to selection of mouse and knob locators. A new 
LOCATORJNIT selector (202) has been added for HP-HIL “relative locator” devices. A new 
opcode (1091) supports control of termination of AWAIT_LOCATOR execution. As a default, 
both mouse buttons and keyboard keypresses can terminate AWAIT_LOCATOR. OUTPUT_ESC 
1091 with INTEGER Array[l]=0 “turns off” the keyboard. 
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AWAIT_LOCATOR 


IMPORT: dgLlib 


This procedure waits until activation of the locator button and then reads from the enabled 
locator device. Various echo methods can be selected. 


Syntax 


( AWAITJ-OCATOR ) —»(7)— 


c 


echo 

selector 





x cooridinate 

variable name 


button variable 
name 



ly cooridinate 
Ivariable name 


Item 

Description/Default 

Range 

Restrictions 

echo selector 

Expression of TYPE INTEGER 

MININT to MAXINT 

button variable name 

Variable of TYPE INTEGER 

- 

x coordinate name 

Variable of TYPE REAL 

- 

y coordinate name 

Variable of TYPE REAL 

- 


Procedure Heading 

PROCEDURE AWA IT_LOCATOR ( 


Echo 

MAR B u 11 o n 
MAR WX » WY 


INTEGER 5 
INTEGER 5 
REAL ) 5 


Semantics 

AWAIT_LOCATOR waits until the locator button is activated and then returns the value of the 
selected button and the world coordinates of the locator. While the button press is awaited, the 
locator position can be tracked on the graphic display device. If an invalid button is pressed, the 
button value will be returned as 0; otherwise it will contain the value of the button pressed. On 
locators that use a keyboard for the button device (e.g., Model 226/236) the ordinal value of 
the key pressed is returned. 

The echo selector selects the type of echo used. Possible values are: 

0 - No echo. 

1 - Echo on the locator device. 

2 - Small cursor 

3 - Full cross hair cursor 

4 - Rubber band line 

5 - Horizontal rubber band line 

6 - Vertical rubber band line 

7 - Snap horizontal / vertical rubber band line 

8 - Rubber band box 

9 and above - Device dependent echo on the locator device. 
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Locator input can be echoed on either a graphics display device or a locator device. The meaning 
of the various echoes on various devices used as locators and displays is discussed below. 

The button value is the INTEGER value of the button used to terminate the locator input. 

The x and y position represent the world coordinate point returned from the enabled locator. 

AWAIT_LOCATOR implicitly makes the picture current before sending any commands to the 
locator device. The locator should be enabled (LOCATOR_INIT) before calling AWAIT_LOCA- 
TOR. The locator is terminated by the procedure LOCATOR_TERM. 

Range and Limit Considerations 

If the echo selector is out of range, the call to AWAIT_LOCATOR is completed using an echo 
selector of 1 and no error is reported. Echoes 2 through 8 require a graphics display to be 
enabled. If a display is not enabled, the call will be completed with echo 1 and GRAPHICSER- 
ROR will return 4. 

If the point entered is outside of the current logical locator limits, the transformed point will still be 
returned in world coordinates. 

Starting Position Effects 

The location of the starting position is device dependent after this procedure with echo 0 or echo 

1. For soft-copy devices it is typically unchanged; however, for plotters the pen position (starting 
position) will remain at the last position it was moved to by the operator. This is done to reduce 
pen movement back to the current position after each AWAIT_LOCATOR invocation. 

Echo Types 

Several different types of echoing can be performed. Some echoes are performed on the locator 
device while others use the graphics display device. When the echo selector is in the range 2 thru 
8, the graphics display device will be used in echoing. All of the echoes on the graphics display 
start at a point on the graphics display called the locator echo position (see SETJECHO-POS). 
For some of these echoes the locator echo position is also used as a fixed reference point. For 
example, the fixed end of the rubber band line will be at the locator echo position. The echoes 
available are: 

2. Small cursor 

Track the position of the locator on the graphics display device. The initial position of the 
cursor is at the locator echo position. The point returned is the locator position. 

3. Full cross hair cursor 

Designate the position of the locator on the graphics display device with two intersecting 
lines. One line is horizontal with a length equal to the width of the logical display surface. 
The other line is vertical with a length equal to the height of the logical display surface. The 
initial point of intersection is at the current locator echo position. The point returned is the 
locator position. 

4. Rubber band line 

Designate the endpoints of a line. One end is fixed at the locator echo position; the other is 
designated by the current locator position. The locator position can be told from the locator 
echo position by the presence of a small cursor (echo 2) at end representing the locator 
echo position. The point returned is the locator position. 
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5. Horizontal rubber band line 

Designate a horizontal line. One endpoint of the line is fixed at the locator echo position: the 
other endpoint has the world Y-coordinate of the locator echo position and the world 
X-coordinate of the current locator position. The locator position can be distinguished from 
the locator echo position by the presence of a small cursor (echo 2) at end representing the 
locator echo position. The point returned will have the X-coordinate of the locator position 
and the Y-coordinate of the locator echo position. 

6. Vertical rubber band line 

Designate a vertical line. One endpoint of the line is fixed at the locator echo position; the 
other endpoint will have the world X-coordinate of the locator echo position and the world 
Y-coordinate of the current locator position. The locator position can be distinguished from 
the locator echo position by the presence of a small cursor (echo 2) at end representing the 
locator echo position. The point returned will have the X-coordinate of the locator echo 
position and the Y-coordinate of the locator position. 

7. Snap horizontal/vertical rubber band line 

Designate a horizontal/vertical line. One endpoint of the line is fixed at the locator echo 
position. The other endpoint will be either a horizontal (see echo 5) or vertical (see echo 6) 
rubber band line, depending on which one produces the longer line. If both lines are of equal 
length, a horizontal line will be used. The locator position can be distinguished from the 
locator echo position by the presence of a small cursor (echo 2) at end representing the 
locator echo position. The point returned is the endpoint of the echoed line. 

8. Rubber band box 

Designate a rectangle. The diagonal of the rectangle is the line from the locator echo position 
to the current locator position. The locator position can be distinguished from the locator 
echo position by the presence of a small cursor (echo 2) at end representing the locator echo 
position. The point returned will be the locator position. 

Echo selectors of 1 and greater than or equal to 9 produce a device dependent echo on the 
locator device. Most locator devices support at least one form of echoing. Possible ones include 
beeping, displaying the value entered, or blinking a light each time a point is entered. If the 
specified echo is not supported on the enabled locator device, echo 1 will be used. 

Echoes on Raster Displays 

Raster displays support all the echoes described under “Echo Types.” 

Echoes on HPGL Plotters 

Hard copy plotting devices (such as the 9872 or the 7580) cannot perform all the echoes listed 
above. The closest approximation possible is used for simulating them. The actual echo per¬ 
formed may also depend on whether the plotter is also being used as the locator. The echoes 
available on plotters are: 

2. Small cursor 

Initially the plotter’s pen will be moved to the locator echo position. The pen will then 
reflect the current locator position (i.e., track) until the locator operation is terminated. 

3. Full cross hair cursor 
Simulated by ECHO #2. 

4. Rubber band line 
Simulated by ECHO #2. 
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5. Horizontal rubber band line 

If the plotter is not the current locator device, the plotter’s pen will initially be moved to the 
current locator echo position. The pen will then reflect the X coordinate of the current 
locator position and the Y coordinate of the current locator echo position. 

If the plotter is used as the locator, this echo is simulated by echo 2 except the current 
locator X coordinate and the locator echo position Y coordinate are returned. 

6. Vertical rubber band line 

If the plotter is not the current locator device, the plotter’s pen position will initially be 
moved to the current locator echo position. The pen will then reflect the X coordinate of the 
current locator echo position and the Y coordinate of the current locator position. 

If the plotter is used as the locator, this echo is simulated by echo 2 except the locator echo 
position X coordinate and the current locator Y coordinate are returned. 

7. Snap horizontal/vertical rubber band line 

Designate a horizontal/vertical line. One endpoint of the line is fixed at the locator echo 
position. The other endpoint will be either a horizontal (see echo 5) or vertical (see echo 6) 
rubber band line, depending on which one produces the longer line. If both lines are of equal 
length, a horizontal line will be used. The locator position can be distinguished from the 
locator echo position by the presence of a small cursor (echo 2) at end representing the 
locator echo position. The point returned is the endpoint of the echoed line. 

8. Rubber band box 

Simulated by echo 2. The point returned will be the locator position. 

Absolute Locators (Graphics Tablet or Plotter) 

For graphics tablets, the operator moves the stylus to the desired position and depresses it. The 
button value returned is always one. For an echo selector of 1 the tablet beeper is sounded when 
the stylus is depressed. An echo selector greater than or equal to 9 uses the same echo as an echo 
selector of 1. (Some HPGL plotters have the ability of using the physical pen as a locator. See the 
subsequent section called “HPGL Plotters as Absolute Locators” for details.) 


Relative Locators (Knob or Mouse) - LOCATOR_INIT Selector 2 

When the knob is specified as the locator (LOCATOR-INIT with device selector of 2) the keyboard 
keys have the following meanings: 


Arrow keys 
Knob 

Knob with shift key 
pressed 

Mouse 

Number of keys 
l->9 


Move the cursor in the direction indicated. 

Move the cursor right and left. 

Move the cursor up and down. 

Move the cursor in the direction of mouse movement (mouse left = cursor left; 
mouse forward = cursor up; etc.). 

Change the distance the cursor is moved per arrow keypress, knob rotation, or 
mouse movement. 1 provides the least movement and 9 provides the most. 


All other keys act as the locator buttons. The ordinal value of the locator button (key) struck is 
returned in BUTTON. 


For an echo selector of 1 the position of the locator is indicated by a small crosshair cursor on the 
graphics display. 
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The initial position of the cursor is located at the current starting position of the graphics display. 
This is the point obtained by the last invocation of await Jocator, or the lower left hand corner of 
the locator limits if no point has been received since LOCATORJNIT was executed. For back to 
back AWAIT_LOCATOR calls this would mean the second AWAIT_LOCATOR would begin 
where the first AWAIT_LOCATOR left the cursor. Echo selectors greater than or equal to 9 
have the same effect as an echo selector of 1. 

Locator input can be echoed on either a graphics display device or a locator device. Echoes 2 thru 
8 are explained above under “Echoes on Raster Displays” and “Echoes on HPGL Plotters”. For 
an echo selector of 0 or 1 the pen tracks the locator position. Echo selectors greater than or equal 
to 9 have the same effect as an echo selector of 1. 

Relative Locators (Knob or Mouse) - LOCATORJNIT selector 202 

When LOCATORJNIT is performed with selector 202, the keyboard keys are initially enabled to 
terminate subsequent AWAIT_LOCATOR calls. The arrow keys do not have any special mean¬ 
ing, and pressing them will not move the cursor, but will instead terminate AWAIT.LOCATOR. 
Also, number keys are not special. Mouse and knob devices work as for LOCATORJNIT with 
selector 2, but the cursor is much more responsive and cursor motions have a “crisp” feel. 

Echo selectors are the same as for the HP-HIL tablets. The mouse or knob “remembers” where 
it was from one AWAIT_LOCATOR call to another. The cursor is initially displayed in this last 
position unless the device was moved in the intervening time. SAMPLE_LOCATOR makes 
sense with this driver, as DGL is “watching” the device position continuously from the time 
LOCATORJNIT is executed, until LOCATOR_TERM occurs. The position can be changed 
outside of AWAIT_LOCATOR calls, which is not true using LOCATORJNIT with selector 2. 

Buttons on the device are defined as: 

First button 128 

Second button 130 

Third button 132 

For keyboard keys, the button has the same value as the ordinal of the key would return when 
reading a character from input. 

We recommend using this new capability when you are using a mouse or knob with DGL. This 
capability is available on the HP 98203C HP-HIL keyboard knob. However, it is not supported 
on the HP 98203A and HP 98203B (non-HP-HIL keyboard) knobs. 

HPGL Plotters as Absolute Locators 

The AWAIT_LOCATOR function enables a digitizing mode in the device. For HPGL plotters the 
operator then positions the pen to the desired position with the cursor buttons or joy stick and 
then presses the enter key. The pen state (0 for ’up’, and 1 for ’down’) is returned in the button 
parameter. 

Following locator input (echo on the locator device), the pen position will remain at the last 
position it was moved to by the operator. This means that the starting position for the next 
graphics primitive will be wherever the pen was left. 
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Locator input can be echoed on either a graphics display device or a locator device. Echoes 2 thru 
8 are explained above under “Echoes on Raster Displays” and “Echoes on HPGL Plotters”. For 
an echo selector of 0 or 1 the pen tracks the locator position. Echo selectors greater than or equal 
to 9 have the same effect as an echo selector of 1. 

Error Conditions 

The graphics system must be initialized and the locator device must be enabled or the call will be 
ignored. If the echo selector is between 1 and 9 and the graphics display is not enabled, the call 
will be completed with an echo selector of 1. If any of the preceding errors are encountered, an 
ESCAPE (-27) is generated, and GRAPHICSERROR will return a non-zero value. 

HP-HIL Absolute Locator Semantics 

Echo defines an echoing mechanism for feedback to the user. Echo has the same meaning as when 
applied to a HP 9111A (HP-IB) data tablet. 

Button is an integer returned to indicate which key or “button” on the digitizer completed the 
digitize operation. Button will always be returned as 128 on HP-HIL tablets which have only a 
stylus; if the tablet has buttons on the cursor, or a keypad, the value returned will be the HP-HIL 
keycode for the button pressed: 


First button (or stylus) 

128 

Second button 

130 

Third button 

132 

Fourth button 

134 


Wx and w y are the world coordinate real values returned by the locator when the digitizing is 
completed. A wait-locator does not return to the calling program until the digitizing operation has 
been completed by the user; the completion of the digitizing is considered a “button press” and is 
device-dependent. For the HP-HIL tablet, the digitizing action is to close the switch or button on the 
stylus or “puck,” while in “proximity range” of the platen. If multiple tablets are active on the 
HP-HIL, there is the potential for confusion as to whether proximity is in range or out of range; 
DGL does not reliably resolve this situation, and multiple tablets presents the possibility of digitizing 
spurious data. See the section on “output-esc” for information on disabling HP-HIL absolute 
locators. 
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CLEAR_DISPLAY 

IMPORT: dgLIib 


This procedure clears the graphics display. 


Syntax 


-»^CLEAR-DISPLAy)-*- 


Procedure Heading 

PROCEDURE CLEAR_DI SPLAY i 

Semantics 

The graphics system provides the capability to clear the graphics display of all output primitives at 
any time in an application program. This procedure has different meaning for different graphics 
display devices. CLEAR_DISPLAY makes the picture current. The starting position is not 
effected by this procedure. 

HPGL Plotters 

Plotters with page advance will be sent a command to advance the paper. On devices such as 
fixed page plotters, a call to CLEAR_DISPLAY simply makes the picture current. 

Raster Displays 

On CRT displays, this procedure clears the display to the background color. This means slightly 
different things on different displays: 

Monochrome If color table location 0 is 0 then the display is cleared to black. Otherwise, the 

display is cleared to white. 

HP 98627A The display is cleared to the non-dithered color closest to the color repre¬ 

sented specified by color table location 0. (e.g., If color table location 0 was 
Red = .5, Green = .2, Blue = 0, the display would be cleared to red.) 

Color bit-map The display is cleared to the color represented by color table location 0. 

Error conditions: 

The graphics system must be initialized and a display must be enabled or the call will be ignored, 
an ESCAPE (- 27) will be generated, and the GRAPHICSERROR function will return a non-zero 
value. 
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CON VERT_WT ODMM 

IMPORT: dglJib 


This procedure converts from world coordinates to millimetres on the graphics display. 

Syntax 




C0NVERT_WT0DMM 




Item 

Description/Default 

Range 

Restrictions 

world x 

Expression of TYPE REAL 

- 

world y 

Expression of TYPE REAL 

- 

metric x name 

Variable of TYPE REAL 

- 

metric y name 

Variable of TYPE REAL 

- 


Procedure Heading 

PROCEDURE CONYERT_WTODMM ( WX » WY : REAL 5 

UAR MrnX » MmY : REAL ) 5 

Semantics 

This procedure returns a coordinate pair (metric X,metric Y) representing the world X and Y 
coordinates. The metric X and Y values are the number of millimetres along the X and Y axis from 
the supplied world coordinate point to the origin of the metric coordinate system on the device. 
The location of this origin is device dependent. 

For raster devices, the metric origin is the lower-left dot. For HPGL plotters, it is the lower-left 
corner of pen movement. 

Since the origin of the world coordinate system need not correspond to the origin of the physical 
graphics display, converting the point (0.0,0.0) in the world coordinate system may not result in 
the value (0.0,0.0) offset from the physical display device’s origin. 

CONVERT_WTODMM will take any world coordinate point, inside or outside the current 
window, and convert it to a point offset from the physical display device’s origin. 

Error conditions: 

The graphics system must be initialized and the graphics display must be enabled or the call will 
be ignored, an ESCAPE (- 27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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CON VERT_WT OLMM 

IMPORT: dglJib 


This procedure converts from world coordinates to millimetres on the locator surface. 

Syntax 


-o 


CONVERTWTOLMM 




Item 

Description/Default 

Range 

Restrictions 

world x 

expression of TYPE REAL 

- 

world y 

expression of TYPE REAL 

- 

metric x name 

variable of TYPE REAL 

- 

metric y name 

variable of TYPE REAL 

- 


Procedure Heading 

PROCEDURE CONVERT-WTOLMM ( NX t NY : REAL 5 

UAR MinX » MmY : REAL ) ! 

Semantics 

This procedure returns a coordinate pair (metric x,metric y) representing the world X and Y 
coordinates. The metric x and y values are the number of millimetres along the X and Y axis from 
the supplied world coordinate point to the origin of the metric coordinate system on the device. 
The location of this origin is device dependent. 

For raster devices, the metric origin is the lower-left dot. For HPGL plotters, it is the lower-left 
corner of pen movement. 

Since the origin of the world coordinate system need not correspond to the origin of the physical 
locator device, converting the point (0.0,0.0) in the world coordinate system does not necessarily 
result in the value (0.0,0.0) offset from the physical locator device’s origin. 

CONVERT_WTOLMM will take any world coordinate point, inside or outside the current 
window, and convert it to a point offset from the physical locator origin. 

Error Conditions 

The graphics system must be initialized, the graphics device must be enabled, and the locator 
must be initialized or the call will be ignored, an ESCAPE (-27) will be generated, and 
GRAPHICSERROR will return a non-zero value. 
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DISPLAY_FINIT 

IMPORT: dgLlib 


This procedure enables the output of the graphics library to be sent to a file. 

Syntax 


-c DISPLAY_FINIT CO H H D—f 


G 


ntP01 

alue v«ly 


error variable 
name 


Item 

Description/Default 

Range 

Restrictions 

Recommended 

Range 

file name 

Expression of TYPE Gstring255; can be 
a STRING of any length up to 255 char¬ 
acters. 

Must be a valid file name 
(see “The File System”) 


device specifier 

Expression of TYPE Gstring255; can be 
a STRING of any length up to 255 char¬ 
acters. First six characters are significant. 

9872A, 9872B, 

9872C, 9872S, 

9872T, 7440A, 

7470A, 7475A, 

7550A, 7570, 

7570A, 7575, 

7575A, 7576, 

7576A, 7580, 

7580A, 7580B, 

7585, 7585A, 

7585B, 7586, 

7586B, 7595, 

7595A, 7596, 
and 7596A 


control value 

Expression of TYPE INTEGER 

MININT thru MAXINT 

see below 

error variable 

Variable of TYPE INTEGER 

— 

— 

name 





Procedure Heading 

PROCEDURE DISPLAY-FINIT ( 


File-Name : 
D e u i c e _ N a m e : 
Control : 

VAR Ierr : 


Gs t rin3255 * 
Gstrin3255> 
INTEGER » 
INTEGER )5 


Semantics 

DISPLAY-FINIT allows output from the graphics library to be sent to a file. This file can then be 
sent a graphics display device by use of the operating system’s file system (e.g. FILER, or SRM 
spooler). The contents of the file are device dependent, and MUST be sent only to devices of the 
type indicated in device name when the file was created. 

The file name specifies the name of the file to send device dependent commands to. 
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The device specifier tells the graphics system the type of device that the file will be sent to. Only 
some types of devices may be use this command. For example raster devices (i.e. the internal 
display) may not use this command. For the currently supported devices, see the range restric¬ 
tions under Syntax, above. 

The control value is used to control characteristics of the graphics display device and should be 
set according to the display device the file is intended for. See “Control Values,” below, for the 
meaning of the control value. 


The error variable name will contain a value indicating whether the graphics display device was 
successfully initialized. 


Value Meaning 

0 The graphics display device was successfully initialized. 

1 The graphics display device (indicated by device name) is not supported by the graphics 

library. 


2 


Unable to open the file specified. File error is returned in ESCAPECODE and IORESULT 
(see the Pascal Workstation System manual). 


DISPLAY_FINIT enables a file as the logical graphics display. The file can be of any type, al¬ 
though the current spooling mechanisms can only handle TEXT and ASCII files. The file need not 
exist before this procedure is called. If this procedure is successful, the file will be closed with 
’LOCK’when DISPLAY_TERM is executed. 


This procedure initializes and enables the graphics display for graphics output. Before the device is 
initialized, the device status is 0, the device address is 0, and the device name is the default name. 
The default name is ’ ’ (six ASCII blanks). 

When the device is enabled the device status is set to 1 (enabled) and the internal device specifier 
used by the graphics library is set to the file name provided by the user. The device name is set to 
the supplied device name. This information is available by calling INQ_WS with operation 
selectors of 11050 and 12050. 


Initialization includes the following operations: 

• The graphics display surface is cleared (e.g., CRT erased, plotter page advanced) if Bit 7 of 
CONTROL is not set. 

• The starting position is set to a device dependent location. 

• The logical display limits are set to the default limits for the device. 

• The aspect ratio of the virtual coordinate system is applied to the logical display limits to 
define the limits of the virtual coordinate system. 

• All primitive attributes are set to the default values. 

• The locator echo position is set to its default value. 
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Only one graphics output device can be initialized at a .time. If a graphics display device is 
currently enabled, the enabled device will be terminated (via DISPLAY-TERM) and the call will 
continue. 

A call to MOVE or INT-MOVE should be made after this call to update the starting position and in 
so doing, place the physical pen or beam at a known location on the graphics display device. 

The Control Value 

The control value is used to control characteristics of the graphics display device. Bits should be 
set according to the following bit map. All unused bits should be set to 0. 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 

0 


Bits 

Meaning 

0 thru 6 

Currently unused. Should be set to 0. 

7 

If this bit is set (BIT 7 = 1), it will inhibit clearing of the graphics display as part of 
the DISPLAY-FINIT procedure. Some devices have the ability to not clear the 
graphics display, or not to perform a page advance during device initialization. 
This bit is ignored on devices that do not support the feature. 

8 thru 15 

Not used by DISPLAY-FINIT. 


HPGL Plotter Initialization 

When an HPGL device is initialized the following device dependent actions are performed, in 
addition to the general initialization process: 

• Pen velocity, force, and acceleration are set to the default for that device. 

• ASCII character set is set to ’ANSI ASCII’. 

• Paper cutter is enabled (HP 9872S / HP 9872T). 

• Advance page option is enabled (HP 9872S / HP 9872T / HP 7550A). 

• Paper is advanced one full page (HP 9872S / HP 9872T / HP 7550A) (unless DISPLAY-INIT 
CONTROL bit 7 is set). 

• The automatic pen options are set (HP 7580 / HP 7585 / HP 7586B / HP 7550A). 
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The default initial dimensions for the HPGL plotters supported by the graphics library are: 


Plotter 

Wide 

mm 

High 

mm 

Wide 

points 

High 

points 

Aspect 

Resolution 

points/mm 

7440A 

272.5 

191.25 

10900 

7650 

.7018 

40.0 

7470 

257.5 

191.25 

10300 

7650 

.7427 

40.0 

7475 

416 

259.125 

16640 

10365 

.6229 

40.0 

7550A/B 

411.25 

254.25 

16450 

10170 

.6182 

40.0 

7570A 

809.5 

524.25 

32380 

20970 

.6476 

40.0 

7575A 

809.5 

524.25 

32380 

20970 

.6476 

40.0 

7576A 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

7580 

809.5 

524.25 

32380 

20970 

.6476 

40.0 

7585 

1100 

891.75 

44000 

35670 

.8107 

40.0 

7586 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

7595A/B 

1100 

891.75 

44000 

35670 

.8107 

40.0 

7596A/B 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

7599A 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

9872 

400 

285 

16000 

11400 

.7125 

40.0 


Any device not in this list is not supported. The 7550B, 7595B, and 7599A plotters are only 
supported in 7550A, 7595A, or 7596A emulation mode. 

Any device not in this list is not supported. 

The default logical display surface is set equal to the maximum physical limits of the device. The 
view-surface is always justified in the lower left corner of the current logical display surface 
(corner nearest the turret for the HP 7580 and HP 7585 plotters). The physical origin of the 
graphics display is at the lower left boundary of pen movement. 

Error Conditions 

If the graphics system is not initialized, the call is ignored, an ESCAPE ( - 27) is generated, and 
GRAPHICSERROR returns a non-zero value. 
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DISPLAY_INIT 

IMPORT: dglJib 


This procedure enables a device as the logical graphics display. 


Syntax 


Item Description/Default 

device selector Expression of TYPE INTEGER 

control value Expression of TYPE INTEGER 

error variable name Variable of TYPE INTEGER 


Range 

Restrictions 

Recommended 

Range 

MININT to 


MAXINT 


MININT to 

— 

MAXINT 


- 

- 


Procedure Heading 

PROCEDURE DISPLAY_INIT ( Deu.Adr : INTEGER* 

Control : INTEGER* 

MAR IErr : INTEGER )i 

Semantics 

DISPLAY_INIT enables a device as the logical graphics display. It initializes and enables the 
graphics display device for graphics output. 

Before the device is initialized the device status is 0, the device address is 0, and the device name is 
the default name. The default name is ’ ’ (six ASCII blanks). 

When the device is enabled the device status is set to 1 (enabled) and the internal device specifier 
used by the graphics library is set equal to the device selector provided by the user. The device 
name is set to the device being used. This information is available by calling INQ_WS with 
operation selectors 11050 and 12050. 

The device selector specifies the physical address of the graphics output device. 

device selector = 3: Primary internal graphics CRT (i.e., the display designated as the 

console-where the command line is displayed). 

device selector = 6: Secondary internal graphics CRT, if present (i.e., any display other 

than the console that does not require a select code and/or bus 
address to access it). 

8^device selector^ 1: Interface card select code (HP 98627A default = 28). 

700<device selector<3199: Composite HP-IB/device selector. 

The control value is used to control device dependent characteristics of the graphics display 
device. 
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The error variable name will contain a value indicating whether the graphics display device was 
successfully initialized. 


Value 

0 

2 


Meaning _ 

The graphics display device was successfully initialized. 

Unrecognized device specified. Unable to communicate with a device at the specified 
address, non-existent interface card or non-graphics system supported interface card. 


If an error is encountered, the call will be ignored. 


The graphics library attempts to directly identify the type of device by using its device selector in 
some way. The meanings for device address are listed above. 

At the time that the graphics library is initialized, all devices which are to be used must be 
connected, powered on, ready, and accessible via the supplied device selector. Invalid device 
selectors or unresponsive devices result in that device not being initialized and an error being 
returned. 


Only one graphics output device maybe initialized at a time. If a graphics display device is 
currently enabled, the enabled device will be terminated (via DISPLAY_TERM) and the call will 
continue. 


A call to MOVE or INT_MOVE should be made after this call to update the starting position and in 
so doing, place the physical pen or beam at a known location on the graphics display device. 

The Control Value 

Used to control characteristics of the graphics display device. Bits should be set according to the 
following bit map. All unused bits should be set to 0. 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 

0 


Bits 
0 thru 6 
7 


8 thru 15 


Meaning 

Currently unused. Should be set to 0. 

If this bit is set (BIT 7 = 1), it will inhibit clearing of the graphics display as part of 
the DISPLAY_INIT procedure. Some devices have the ability to not clear the graphics 
display, or not to perform a page advance during device initialization. This bit is ignored 
on devices that do not support the feature. 

Bits 8 through 15 are used by some devices to control device dependent features of those 
devices. 
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Device Dependent Values 

Bits 8, 9, and 10 of DISPLAY JNIT’s CONTROL parameter determine the type of display for 
the HP 98627A card and the default dimensions assumed by the graphics system. 


CONTROL 



Bits 

10 98 Description 

256 

001 

US STD 

(512 x 390, 60 hz refresh) 

512 

010 

EURO STD 

(512 x 390, 50 hz refresh) 

768 

011 

US TV 

(512 x 474, 15.75 Khz horizontal 
refresh, interlaced) 

1024 

100 

EURO TV 

(512 x 512, 50 hz vertical refresh, 
interlaced) 

1280 

101 

HI RES 

(512 x 512, 60 hz) 

1536 

110 

Internal 

(HP) use only 


Out of range values are treated as if CONTROL = 256. 

When using a Model 237 computer, HP 98700A display, or Series 300 display that is designated 
the console, bit 8 of DISPLAYJNIT’s CONTROL parameter determines if the entire screen will 
be used for graphics. A value of 256 (i.e., bit 8 = 1) turns off the echo of the typeahead buffer, 
and allocates the entire screen for graphics. The typeahead buffer echo is re-enabled by the 
DISPLAY_TERM procedure call. If bit 8 is set and the program aborts before DISPLAY.TERM 
is called, you must reboot to get the typeahead buffer echo back. 

General Initialization Operations 

Initialization includes the following operations: 

• The graphics display surface is cleared (e.g., CRT erased, plotter page advanced) unless Bit 7 
of the control value is set. 

• The starting position is set to a device dependent location. (This is undefined for HPGL 
plotters.) 

• The logical display limits are set to the default limits for the device. 

• The aspect ratio of the virtual coordinate system is applied to the logical display limits to 
define the limits of the virtual coordinate system. 

• All primitive attributes are set to the default values. 

• The locator echo position is set to its default value. 

• If the display and locator are the same physical device, the logical locator limits are set to the 
limits of the view surface. 
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Raster Display Initialization 

When a raster display is initialized the following device dependent actions are performed, in 
addition to the general initialization process: 

• The starting position is in the lower left corner of the display. 

• Graphics memory is cleared if bit 7 of the control word is 0. 

• Initialize the color table to default values. If the device has retroactive color defini¬ 
tion (Model 236 color computer, HP 98543A, HP 98545A, HP 98547A, HP 98549A, 
HP98550A, and HP98700A) and the color table has been changed from the default 
colors, the colors of an image will change even if bit 7 is set to 1. 

• The graphics display is turned on. 

• The view surface is centered within the logical display limits. 

• The drawing mode (see OUTPUT_ESC) is set to dominate. 

• The DISPLAY_INIT CONTROL parameter is used as specified above. 


The following table describes the internal raster display for Series 200/300 computer: 


Computer 

Wide 

mm 

High 

mm 

Wide 

points 

High 

points 

Memory 

Planes 

Color 

Map 

Model 216 

160 

120 

400 

300 

1 

no 

Model 217 

230 

175 

512 

390 

1 

no 

Model 220 (HP 82913A) 

210 

158 

400 

300 

1 

no 

Model 220 (HP 82912A) 

152 

114 

400 

300 

1 

no 

Model 226 

120 

88 

400 

300 

1 

no 

Model 236 

210 

160 

512 

390 

1 

no 

Model 236 Color 

217 

163 

512 

390 

4 

yes 

Model 237 

312 

234 

1024 

768 

1 

no 

98700 

360 

270 

1024 

768 

4/8 

yes 

98542A 

210 

164 

512 

400 

1 

no 

98543A 

210 

164 

512 

400 

4 

yes 

98544A 

312 

234 

1024 

768 

1 

no 

98545A 

360 

270 

1024 

768 

4 

yes 

98547A 

360 

270 

1024 

768 

6 

yes 

98548A 

343 

274 

1280 

1024 

1 

no 

98549A 

360 

270 

1024 

768 

6 

yes 

98550A 

343 

274 

1280 

1024 

8 

yes 

362/382 VGA 

290 

210 

640 

480 

8 

yes 

382 Medium Res 

300 

225 

1024 

768 

8 

yes 

382 High Res 

340 

272 

1280 

1024 

8 

yes 
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The HP 98627A is a 3 plane non-color mapped color interface card which connects to an external 
RGB monitor. Bits 8,9, and 10 of DISPLAY_INIT’s CONTROL parameter determine the type of 
display for the HP 98627A card and the default dimensions assumed by the graphics system. 


CONTROL 

Bits 

10 9 8 

Description 


256 

001 

US STD 

(512 x 390, 60 hz refresh) 

512 

010 

EURO STD 

(512 x 390, 50 hz refresh) 

768 

Oil 

US TV 

(512 x 474, 15.75 Khz horizontal 
refresh, interlaced) 

1024 

100 

EURO TV 

(512 x 512, 50 hz vertical refresh, 
interlaced) 

1280 

101 

HI RES 

(512 x 512, 60 hz) 

1536 

110 

Internal 

(HP) use only 


Out of range values are treated as if CONTROL = 256. 


The physical size of the HP 98627A display (needed by the SET_DISPLAY_LIM procedure) may 
be given to the graphics system by an escape function (OPCODE = 250). The physical limits 
assumed until the escape function is given are: 


CONTROL = 256 
512 
768 


153.3mm wide and 116.7mm high. 
153.3mm wide and 116.7mm high. 
153.3mm wide and 142.2mm high. 


1280 153.3mm wide and 153.3mm high. 


The default logical display surface of the graphics display device is the maximum physical limits of 
the screen. The physical origin is the lower left corner of the display. 


The view surface is always centered within the current logical display surface. 

HPGL Plotter Initialization 

When an HPGL device is initialized the following device dependent actions are performed, in 
addition to the general initialization process: 

• Pen velocity, force, and acceleration are set to the default for that device. 

• ASCII character set is set to ’ANSI ASCII’. 

• Paper cutter is enabled (HP 9872S / HP 9872T). 

• Advance page option is enabled (HP7550A / HP7586B / HP7596A / HP9872S / 
HP 9872T). 

• Paper is advanced one full page (HP 7550A / HP7586B / HP 7596A / HP9872S / 
HP 9872T) (unless DISPLAYJNIT CONTROL bit 7 is set). 

• The automatic pen options are set (HP 7570A / HP 7575A / HP 7576A / HP 7580A / 
HP 7585 / HP 7595A). 
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The default initial dimensions for the HPGL plotters supported by the graphics library are: 


Plotter 

Wide 

mm 

High 

mm 

Wide 

points 

High 

points 

Aspect 

Resolution 

points/mm 

7440A 

272.5 

191.25 

10900 

7650 

.7018 

40.0 

7470 

257.5 

191.25 

10300 

7650 

.7427 

40.0 

7475 

416 

259.125 

16640 

10365 

.6229 

40.0 

7550A/B 

411.25 

254.25 

16450 

10170 

.6182 

40.0 

7570A 

809.5 

524.25 

32380 

20970 

.6476 

40.0 

7575A 

809.5 

524.25 

32380 

20970 

.6476 

40.0 

7576A 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

7580 

809.5 

524.25 

32380 

20970 

.6476 

40.0 

7585 

1100 

891.75 

44000 

35670 

.8107 

40.0 

7586 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

7595A/B 

1100 

891.75 

44000 

35670 

.8107 

40.0 

7596A/B 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

7599A 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

9872 

400 

285 

16000 

11400 

.7125 

40.0 


The 7550B, 7595B, 7596A, and 7599A plotters are only supported in 7550A, 7595A, or 7596A 
emulation mode. 

The maximum physical limits of the graphics display for an HPGL device not listed above are 
determined by the default settings of PI and P2. The default settings of PI and P2 are the values 
they have after an HPGL ’IN’ command. Refer to the specific device manual for additional 
details. 

The default logical display surface is set equal to the area defined by PI and P2 at the time 
DISPLAY JNIT is invoked. The view surface is always justified in the lower-left corner of 
the current logical display surface (corner nearest the turret for the HP 7570A, HP 7575A, 
HP 7576A, HP 7580, HP 7585, HP 7586, HP 7595A, and HP 7596A plotters). The physical 
origin of the graphics display is at the lower-left boundary of pen movement. 


Note 

If the paper is changed in an HP 7570A, HP 7575A, HP7576A, 
HP 7580, HP 7585, HP 7586, HP 7595A/B, HP 7596A/B, or 
HP 7599A plotter while the graphics display is initialized, it should be 
the same size of paper that was in the plotter when DISPLAYJNIT was 
called. If a different size of paper is required, the device should be ter¬ 
minated (DISPLAY_TERM) and re-initialized after the new paper has been 
placed in the plotter. 


Error Conditions 

The graphics system must be initialized or the call will be ignored, an ESCAPE (— 27) will be 
generated, and GRAPHICSERROR will return a non-zero value. 
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DISPLAY-TERM 

IMPORT: dgLIib 


This procedure disables the enabled graphics display device. 


Syntax 


-♦^DISPLAY-TERM^)-►- 


Procedure Heading 

PROCEDURE DISPLAY-TERM ? 

Semantics 

DISPLAY-TERM terminates the device enabled as the graphics display. DISPLAY-TERM 
completes all remaining display operations and disables the logical graphics display. It makes the 
picture current and releases all resources being used by the device. The device name is set to the 
default name ’ ’ (six ASCII blanks), the device status is set to 0 (not enabled) and the device 
address is set to 0. DISPLAY-TERM does not clear the graphics display. 

The graphics display device should be disabled before the termination of the application prog¬ 
ram. DISPLAY-TERM is the complementary routine to DISPLAY-INIT. 

Error Conditions 

The graphics system should be initialized and the display should be enabled or the call will be 
ignored, an ESCAPE (-27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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GRAPHICSERROR 


IMPORT: dglJib 


This function returns an integer error code and can be used to determine the cause of a 
graphics escape. 

Syntax 

-< GRAPHICSERROR > 


Function Heading 

FUNCTION GRAPHICSERROR: INTEGER? 

Semantics 

When an error occurs that uses the escape function, escape-code - 27 is used. After the escape is 
trapped and it has been determined that the graphics library is the source of the error (the escape 
code equal to -27), GRAPHICSERROR can be used to determine the cause of the error. The 
function returns the value of the last error generated and then clears the value of the return error. 
A user who is trapping errors and wishes to keep the value of the error must save it in some 
variable. 


The following list of returned values and the error they represent can be used to interpret the 
value returned by GRAPHICSERROR. 


Value 

0 

1 

2 

3 

4 


Meaning _ 

No errors since the last call to GRAPHICSERROR or since the last call to GRAPHICS-INIT. 
The graphics system is not initialized. ACTION: CA11 ignored. 

The graphics display is not enabled. ACTION: Call ignored. 

The locator device is not enabled. ACTION: Call ignored. 

Echo value requires a graphics display to be enabled. ACTION: Call completes with echo 
value = 1. 


5 

6 

7 

8 

9 

10 


The graphics system is already initialized. ACTION: Call ignored. 

Illegal aspect ratio specified. X-SIZE and Y-SIZE must be greater than 0. ACTION: Call 
ignored. 

Illegal parameters specified. ACTION: Call ignored. 

The parameters specified are outside the physical display limits. ACTION: Call ignored. 
The parameters specified are outside the limits of the window. ACTION: Call ignored. 

The logical locator and the logical display are the same physical device. The logical locator 
limits cannot be defined explicitly, they must correspond to the logical view surface limits. 
ACTION: Call ignored. 
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11 

13 

14 
18 


The parameters specified are outside the current virtual coordinate system boundary. 
ACTION: Call ignored. 

The parameters specified are outside the physical locator limits. ACTION: Call ignored. 
Color table contents cannot be inquired or changed. ACTION: Call ignored. 

The number of points specified for a polygon or polyline operation is less than or equal to 
zero. ACTION: Call ignored. 
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GRAPHICS.JNIT 

IMPORT: dgLlib 


This procedure initializes the graphics system. 

Syntax 


Ho 


GRAPHICSJNIT 




Procedure Heading 

PROCEDURE GRA PH I CS_ IIM I T 5 

Semantics 

GRAPHICS-INIT initializes the graphics system. It must be the first graphics system call made by 
the application program. Any procedure call other than GRAPHICS_INIT will be ignored. 
GRAPHICS_INIT performs the following operations: 

• Get dynamic storage space for the graphics library. 

• Sets the aspect ratio to 1. 

• Sets the virtual coordinate and viewport limits to range from 0 to 1.0 in the X and Y 
directions. 

• Sets the world coordinate limits to range from —1.0 to 1.0 in the X and Y directions. 

• Sets the starting position to (0.0,0.0) in world coordinate system units. 

• Sets all attributes equal to their default values. 

GRAPHICS_INIT does not enable any logical devices. The graphics system is terminated with a 
call to GRAPHICS_TERM. Calling GRAPHICS_INIT while the graphics system is initialized will 
result in an implicit call to GRAPHICS_TERM, before the system is reinitialized. 
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GRAPHICS_TERM 

IMPORT: dgLlib 


This procedure terminates the graphics system. 

Syntax 




GRAPHICS_TERM 


m )—*~ 


Procedure Heading 

PROCEDURE GRAPH ICS-TERMi 

Semantics 

GRAPHICS_TERM terminates the graphics system. Termination includes terminating both the 
graphics display and the locator devices. GRAPHICS_TERM does not clear the graphics display. 

GRAPHICS_TERM should be called as the last graphics system call in the application program. 

GRAPHICS_TERM releases dynamic memory allocated during GRAPHICS-INIT. In order that 
this memory actually be returned the compiler option $HEAP_DISPOSE ON$ must be used. 

Error Conditions 

If the graphics system is not initialized, the call will be ignored, an ESCAPE (-27) will be 
generated, and GRAPHICSERROR will return a non-zero value. 
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GTEXT 

IMPORT: dgLtypes 
dgLlib 


This procedure draws characters on the graphics display. 

Syntax 



Item 

Description/Default 

Range 

Restrictions 

string 

Expression of TYPE Gstring255. Can be a string 

length < = 255 


of any length up to 255 characters 

characters 


Procedure Heading 

PROCEDURE GTEXT ( String : Gstrin*255 >5 

Semantics 

The string contains the characters to be output. 

GTEXT produces characters on the graphics display. A series of vectors representing the 
characters in the string is produced by the graphics system. 

When the text string is output, the starting position will represent the lower left-hand corner of the 
first character in STRING. Text is normally output from left to right and is printed vertically with 
no slant. 

After completion of this call, the starting position is left in a device dependent location such that 
successive calls to GTEXT will produce a continuous line of text (i.e., 
GTEXT ( 'H ' ) 5 GTEXT ( ' I ' ) 5 is equivalent to GTEXT ( 'HI ' ) 5). 

The attributes of color, line-style, line-width, text rotation, and character size apply to text 
primitives. However, the text will appear with these attributes only if the graphics device is 
capable of applying them to text. 

Characters 

The character sets provided by the graphics system are the same ones used by the CRT in alpha 
mode, namely the standard character set plus either the Roman extension character set (for all 
non-Katakana machines) or the Katakana character set (for Katakana machines). 
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Characters are defined within a cell that has an aspect ratio of 9/15. The character cells are 
adjacent, both horizontally and vertically, as shown here. 



123456789 


Control Codes 

The following control codes are supported by GTEXT: 


Control 

Character 

Program 

Access 

Keyboard 

Access 

Action 

backspace 

CHR(8) 

CTRL-H 

Move one character cell to the left along the text direction 
vector (defined by SET_CHAR_SIZE). 

linefeed 

CHR(IO) 

CTRL-J 

Move down the height of one character cell. 

carriage 

return 

CHR(13) 

CTRL-M 

Move back the length of the text just completed. 


Any other control characters are ignored. 


The current position is maintained to the resolution of the display device. A text size less-than-or- 
equal-to the resolution of the display device will result in all the characters in a GTEXT call, or a 
series of GTEXT calls, being written to the same point on the device. 

The current position returned by an INQ_WS is not updated by calls to GTEXT. If you want to 
know the current position after a GTEXT, you must do a MOVE, or some other call which updates 
the current position. 

Error Conditions 

If the graphics system is not initialized or a display is not enabled, the call will be ignored, an 
ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero value. 
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INPUT-ESC 

IMPORT: dglJib 


This procedure allows the user to obtain device dependent information from the graphics 
system. 

Syntax 


— ( INPUTJ5C 


INTEGER 
array size 


REAL 

array size 


G 




INTEGER 
array name 


REAL array 
name 


error variable 
name 


Item 

Description/Default 

Range 

Restrictions 

Recommended 

Range 

operation selector 

Expression of TYPE INTEGER 

MININT to 
MAXINT 

- 

INTEGER array 
size 

Expression of TYPE INTEGER 

MININT to 
MAXINT 

>0 

REAL array size 

Expression of TYPE INTEGER 

MININT to 
MAXINT 

>0 

INTEGER array 
name 

Variable of TYPE ANYVAR 
should be array of INTEGERS 

- 

- 

REAL array name 

Variable of TYPE ANYVAR 
should be array of REAL 

— 

- 

error variable name 

Variable of TYPE INTEGER 

- 

- 


Procedure Heading 

PROCEDURE INPUT-ESC ( Opcode 

I s i z e 
Rs i z e 
ANYVAR Ilist 
ANYVAR Rlist 
OAR Ie r r 


INTEGER 5 
INTEGER ? 
INTEGER 5 
Gint-list? 
Greal_list ? 
INTEGER ) ? 
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Semantics 

The operation selector determines the device dependent inquiry escape function being invoked. 

The INTEGER array size is the number of INTEGER parameters to be returned in the INTEGER 
array by the escape function. The correct value for this can be found in the thousand’s place of the 
operation selector (see the table below). 

The REAL array size is the number of REAL parameters to be returned in the REAL array by the 
escape function. The correct value for this can be found in the hundred’s place of the operation 
selector (see the table below). 

The INTEGER array is the array in which zero or more INTEGER parameters are returned by the 
escape function. 

The REAL array is the array in which zero or more REAL parameters are returned by the escape 
function. 

The error variable will contain a code indicating whether the input escape function was 
performed. 


Value 

0 

1 

2 

3 

4 


Meaning 

Inquiry escape function successfully completed. 

Inquiry operation (operation selector) not supported by the graphics display or locator 
device. 

INTEGER array size is not equal to the number of INTEGER parameters to be returned. 
REAL array size is not equal to the number of REAL parameters to be returned. 

Illegal parameters specified. 


If the error variable contains a non-zero value, the call has been ignored. 


INPUT_ESC allows application programs to access special device features on a graphics display 
device. The type of information returned from the graphics display device is determined by the 
value of operation selector. Possible inquiry escape functions may return the status or the options 
supported by a particular graphics display device. 

Inquiry escape functions only apply to the graphics display device. INPUTJESC implicitly makes 
the picture current before the escape function is performed. 



B-32 Graphics Procedure Reference 


HPGL Plotter Operation Selectors 

The following inquiry is supported. 

Operation 

Selector Meaning _ 

2050 Inquire about current turret. 

INTEGER array [1] = -1 >> Turret mounted, but its type is unknown 

INTEGER array [1] = 0 >> No turret mounted 

INTEGER array [1] = 1 >> Fiber tip pens 

INTEGER array [1] = 2 >> Roller ball pens 

INTEGER array [1] = 3 >> Capillary pens 

INTEGER array [2] = 0 >> No turret mounted or turret has no pens 
INTEGER array [2] = n >> Sum of these values: 

1: Pen in stall #1 
2: Pen in stall #2 
4: Pen in stall #3 
8: Pen in stall #4 
16: Pen in stall #5 
32: Pen in stall #6 
64: Pen in stall #7 
128: Pen in stall #8 

For example, if INTEGER array[2] = 3, pens would only be contained in stalls 1 and 2. 

Operation selector 2050 is supported on the HP 7475, HP 7550, HP 7570A, HP 7575A, 
HP 7576A, HP 7580, HP 7585, HP 7586, HP 7595A/B, HP 7596A/B, and HP 7599A plot¬ 
ters. The HP 7595B, HP 7596B and HP 7599A plotters are only supported in HP 7595A or 
7596A emulation mode. 


The HP 7570A, HP 7575A, and HP 7576A support opcode 2050 but can 

only return the values in the following table: 

INTEGER array [1] = — 1 Turret mounted but type unknown 

INTEGER array [1] = 0 No turret mounted 

INTEGER array [2] = 0 No turret mounted 

INTEGER array [2] = 255 Assumes all pens are mounted 

Error Conditions 

If the graphics system is not initialized or a display is not enabled, the call will be ignored, an 
ESCAPE ( - 27) will be generated, and GRAPHICSERROR will return a non-zero value. 



Graphics Procedure Reference B-33 


HP-HIL Locator Semantics 

The i n p u t _esc procedure, when called in relation to an HP-HIL device, returns information 
about the device. The locator.init 201 or locator_init 202 must have been successfully 
executed as well as some display.init. 

• The maximum X and Y that can be returned, 

• The number of buttons, 

• Where it is on the HP-HIL (loop address), 

• X and Y resolution. 

For HP-HIL locator devices (i.e., locator _ini t was called with a value of 201 or 202), the 
effect of the input.esc call is as follows: 

If l<larrE11<7, and HP-HIL loop address larrEi] is not a locator, larrEi] returns with the 
device ID, unless there was no device there, in which case larrd] is zero. Both IarrE2! and 
! ar r E 3 3 will be 0 when the device is not a locator. 

If l<IarrE i J<7, and loop address larrEi j is a locator, the following information is returned: 

I a r r C i ] = device ID 

I a r r [ 2] = Xmax in device units (non-zero) 

I a r r C 3 ] = Ymax in device units (non-zero) 

I a r r C 4 ] = number of buttons on device 

Ra r r[ 13 = X points/mm 
RarrCZ] = Y points/mm 

If I a r r C1 ] is less than 1 or greater than 7, it is an error condition: E r r = 4. 

A call to input_esc when dealing with HP-HIL input devices would take the following form*: 
input_esc(4290 * 2> Iarr> Rarr> E r r)» 

If I o c a t o r _ i n i t <281, e r r ) or I o c a t or _ i n i t <2 0 2, e r r ) is not executed prior to either of these 
calls, the system would report one of three errors: 


LapeLude —27 and 

If no locator has been activated. 

graphics err or =3 


capecode=— 27 and 

If no display has been initialized 

gr aphicserror =0 


r = 1 

If a locator other than 201 or 202 has been activated. 


This use of input_esc is an extension past previous implementations of DGL, which specified that 
in put _esc should only talk to output devices (e.g., displays and plotters), not input devices, such as 
locators. 


A “9” as the tens digit in the input_esc opcode indicates a locator opcode. 
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INQ_COLOR_TABLE 

IMPORT: dgLlib 
dgLinq 


This procedure inquires the color modeling parameters for an index into the device-dependent 
color capability table. 

Syntax 



Item 

Description/Default 

Range 

Restrictions 

entry selector 

Expression of TYPE INTEGER 

>0 

first parameter name 

Variable of TYPE REAL 

- 

second parameter name 

Variable of TYPE REAL 

- 

third parameter name 

Variable of TYPE REAL 

- 


Procedure Heading 

PROCEDURE INQ_CQLOR_TABLE ( Index 

MAR CoIpI 
MAR Co1 p 2 
VAR Co 1 p3 


INTEGER 5 
REAL 5 
REAL 5 

REAL ) i 


Semantics 

This routine inquires the color modelling parameters for the specified location in a device¬ 
dependent color capability table. 

The entry selector specifies the location in the color capability table. The parameters returned 
are for the specific location. The size of the color capability table is device dependent. For 
raster displays in Series 200/300 computers, 32 entries are available for 1 or 4 plane displays; 
80 entries are available for 6 plane displays; and 272 entries are available for 8 plane displays. 

The first parameter represents red intensity if the RGB model has been selected with the SET 
COLOR statement, or hue if the HSL model has been selected. 

The second parameter represents green intensity if the RGB model has been selected with the 
SET COLOR statement, or saturation if the HSL model has been selected. 

The third parameter represents blue intensity if the RGB model has been selected, or luminosity 
if the HSL model has been selected. 

















Graphics Procedure Reference B-35 


A more detailed description of the color models and the meaning of their parameters can be 
found under the procedure definition of SET_COLOR_MODEL. 


Note 

The color table stores color specifications as RGB values. The conver¬ 
sion from RGB to HSL is a one-to-many transformation, and the 
following arbitrary assignments may be made during the conversion: 

IF Luminosity = 0 
THEN Hue = 0 

Saturation = 0 

IF Saturation = 0 
THEN Hue = 0 


Error Conditions 

If the graphics system is not initialized, a display device is not enabled, the color table contents 
cannot be inquired, or the color table entry selector is out of range, the call is ignored, an ESCAPE 
( -27) will be generated, and GRAPHICSERROR will return a non-zero value. 
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INQ_PGN_TABLE 

IMPORT: dgLlib 
dgLinq 


This procedure inquires the polygon style attributes for an entry in the polygon style table. 

Syntax 


-c INQ_PGN_TABLE X<M 


entry 
selector 


density 
variable name 


1 .. JTTTi orientationl 

J ^ variable name y \ 

G 


edge variable! 
name 


Item 

Description/Default 

Range 

Restrictions 

Recommended 

Range 

entry selector 

Expression of TYPE INTEGER 

MININT thru 
MAXINT 

Device 

dependent 

density variable 
name 

Variable of TYPE REAL 

— 

— 

fill orientation 
variable name 

Variable of TYPE REAL 

- 

- 

edge variable name 

Variable of TYPE INTEGER 

- 

- 


Procedure Heading 

PROCEDURE INQ_PGN_TABLE ( 


I n d e x 

VAR D en s t v 
VA R Orient 
MAR Ed Se 


INTEGER 5 
REAL ; 

REAL i 

INTEGER ) 5 


Semantics 

The entry selector specifies the entry in the polygon style table the inquiry is directed at. 

The density variable will contain a value between -1 and 1. This magnitude of this value is the 
ratio of filled area to non-filled area. Zero means the polygon interior is not filled. One represents 
a fully filled polygon interior. All non-zero values specify the density of continuous lines used to fill 
the interior. Negative values are used to specify crosshatching. Calculations for fill density are 
based on the thinnest line possible on the device and on continuous line-style. If the interior 
line-style is not continuous, the actual fill density may not match that found in the polygon style 
table. 
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The fill orientation variable will contain a value from -90 through 90. This value represents the 
angle (in degrees) between the lines used for filling the polygon and the horizontal axis of the 
display device. The interpretation of fill orientation is device-dependent. On devices that require 
software emulation of polygon styles, the angle specified will be adhered to as closely as possible, 
within the line-drawing capabilities of the device. For hardware generated polygon styles, the 
angle specified will be adhered to as closely as is possible given the hardware simulation of the 
requested density. If crosshatching is specified, the fill orientation specifies the angle of orienta¬ 
tion of the first set of lines in the crosshatching, and the second set of lines is always perpendicular 
to this. 

The edge variable will contain a 0 if the polygon edge is not to be displayed and a 1 if the polygon 
edge is to be displayed. If polygon edges are displayed, they adhere to the current line attributes 
of color, line-style, and line-width, in effect at the time of polygon display. 

All current devices support 16 entries in the polygon table. The polygon styles defined in the 
default tables are defined to exploit the hardware capabilities of the devices they are defined for. 

Error Conditions 

The graphics system must be initialized, a display must be enabled, and the entry selector must be 
in range or the call will be ignored, an ESCAPE (-27) will be generated, and 
GRAPHICSERROR will return a non-zero value. 
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INQ_WS 

IMPORT: dgLlib 
dgLinq 


This procedure allows the user to determine characteristics of the graphics system. 


Syntax 



Item 

Description/Default 

Range 

Restrictions 

operation selector 

Expression of TYPE INTEGER 

see below 

string size 

Expression of TYPE INTEGER 

see below 

integer array size 

Expression of TYPE INTEGER 

see below 

REAL array size 

Expression of TYPE INTEGER 

see below 

string name 

Variable of TYPE PACKED ARRAY OF CHAR 

- 

INTEGER array name 

Variable of TYPE ARRAY OF INTEGER 

- 

REAL array name 

Variable of TYPE ARRAY OF REAL 

- 

error variable name 

Variable of TYPE INTEGER 

- 


Procedure Heading 

PROCEDURE INQ_WS ( 



Opcode 


Ss i ze 


I s i z e 


Rs i z e 

ANYUAR 

S 1 i s t 

AN YU A R 

Ilist 

ANYUAR 

R1 i s t 

UAR 

I e r r 


INTEGER 5 
INTEGER » 
INTEGER 5 
INTEGER 5 
Gc h a r_1is t 5 
Gint_list? 

Greal-list! 
INTEGER) ; 
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Semantics 

The operation selector is an integer from the list of operation selectors given below. It is used to 
specify the topic of the inquiry to the system. 

The string size is used to specify the maximum number of characters that are to be returned in 
the string array by the function specified by the operation selector. If there is a 1 in the 
ten-thousand’s place a string value will be returned. The number of characters in the string is 
returned in the first entry in the INTEGER arrray. 

The INTEGER array size is the number of integer parameters that are returned in the integer 
array by the function specified by OPCODE. The thousand’s digit of the operation selector is the 
number of elements the INTEGER array must contain. 

The REAL array size is the number of REAL parameters that are returned in the REAL array by 
the function specified by OPCODE. The hundred’s digit of the operation selector is the number of 
elements the REAL array must contain. 

The string array is a PACKED ARRAY OF CHAR which will contain a string or strings that 
represents characteristics of the work station specified by the value of operation selector. The 
application program must ensure that string array is dimensioned to contain all of the values 
returned by the selected function. 

The INTEGER array will contain integer values that represent characteristics of the work station 
specified by the value of OPCODE. The application program must ensure that the integer array is 
dimensioned to contain all of the values returned by the selected function. 

The REAL array will contain REAL values that represent characteristics of the work station 
specified by the value of OPCODE. The application program must ensure that the REAL array is 
dimensioned to contain all of the values returned by the selected function. 

The error variable will return an integer indicating whether the inquiry was successfully per¬ 
formed. 


Value 

0 

1 

2 


Meaning _ 

The inquiry was successfully performed. 

The operation selector was invalid. 

The INTEGER array size was not equal to the number INTEGER parameters requested 
by the operation selector. 


3 


The REAL array size was not equal to the number of REAL parameters requested by 
the operation selector. 


4 


The string array was not large enough to hold the string requested by the operation 
selector. 
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The procedure INQ_WS returns current information about the graphics system to the application 
program. The type of information desired is specified by a unique value of OPCODE. The 
thousands digit of the operation selector specifies the number of integer values returned in the 
integer array and the hundreds digit specifies the number of REAL values returned in the REAL 
array. A 1 in the ten-thousand’s place indicates that a value will be returned in the string. 

One use of INQ_WS is device optimization: the use of inquiry is to enhance the application’s 
utilization of the output device. An example of this is using color to distinguish between lines when a 
device supports colors, and using line-styles when color is not available. Another example is 
maximizing the aspect ratio used, based on the maximum aspect ratio of the display device. 

Device dependent information returned by the procedure is undefined if the device being 
inquired from is not enabled (e.g., inquire number of colors supported, operation selector 1053, 
only returns valid information when the display is enabled). 

If the graphics system is not initialized, the call will be ignored and GRAPHICSERROR will return 
a non-zero value. 
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Supported Operation Selectors 

The operation selectors supported by the system and their meaning is listed below: 

Operation 

Selector Meaning _ 

250 Current cell size used for text. 

REALArray[l] = Character cell width in world coordinates 
REAL Array[2] = Character cell height in world coordinates 

251 Marker size. 

REAL Array[l] = Marker width in world coordinates 
REALArray[2] = Marker height in world coordinates 

252 Resolution of graphics display 

REAL Array[l] = Resolution in X direction (points/mm) 

REAL Array[2] = Resolution in Y direction (points/mm) 

253 Maximum dimensions of the graphics display. 

REAL Array! 1] = Maximum size in X direction (MM) 

REAL Array[2] = Maximum size in Y direction (MM) 

254 Aspect ratios 

REAL Array! 1] = Current aspect ratio of the virtual coordinate system. 

REAL Array[2] = Aspect ratio of logical limits. 

255 Resolution of locator device 

REAL Array! 1] = Resolution in X direction (points/mm) 

REAL Array[2] = Resolution in Y direction (points/mm) 

256 Maximum dimensions of the locator display. 

REAL Array! 1] = Maximum size in X direction (MM) 

REAL Array[2] = Maximum size in Y direction (MM) 

257 Current locator echo position 

REAL array! 1) = X world coordinate position 
REAL array[2] = Y world coordinate position 

258 Current virtual coordinate limits 

REAL array! 1] = Maximum X virtual coordinate 
REAL array[2] = Maximum Y virtual coordinate 

259 Starting position. 

The information returned may not be valid (not updated) following a text call, an escape 
function call, changes to the viewing transformation or after initialization of the graphics 
display device. 

REAL array! 1] = X world coordinate position 
REAL array[2] = Y world coordinate position 

450 Current window limits 

REAL array! 1] = Minimum X world coordinate position 
REAL array[2] = Maximum X world coordinate position 
REAL array[3] = Minimum Y world coordinate position 
REAL array[4] = Maximum Y world coordinate position 

451 Current viewport limits 

REAL array[l] = Minimum X virtual coordinate 
REAL array[2] = Maximum X virtual coordinate 
REAL array!3] = Minimum Y virtual coordinate 
REAL array!4] = Maximum Y virtual coordinate 
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Operation 

Selector 

1050 

1051 

1052 

1053 

1054 

1056 

1057 

1059 

1060 
1062 

1063 

1064 

1065 

1066 


Meaning 

Does qraphics display device support clipping at physical limits? 

INTEGER Array! 1] = 0 - No 

INTEGER Array! 1] = 1 - Yes, to the view-surface boundaries 
INTEGER Array! 1] = 2 - Yes, but only to the physical limits 

of the display surface. 

Justification of the view surface within the logical display limits. 

INTEGER Array! 1] = 0 - View-surface is centered within 

the logical display limits 

INTEGER Arrayll] = 1 - View surface is positioned in the lower 

left corner of the logical display limits. 

Can the graphics display draw in the background color? Drawing in the background color 
can be used to ’erase’ previously drawn primitives. 

INTEGER Arraytl] = 0 - No 
INTEGER Array! 1] = 1 - Yes 

The total number of non-dithered colors supported on the graphics display. The number 
returned does not include the background color. (Compare operation selectors 1053, 1054, 
and 1075.) 

INTEGER Array! 1] ~ number of distinct colors supported. 

Number of distinct non-dithered colors which can appear on the graphics display at one 
time. The number returned does not include the background color. 

INTEGER Arraytl] = number of distinct colors which can appear 
on the display device at one time. 

Number of line-styles supported on the graphics display. 

INTEGER Arraytl] = number of hardware line-styles supported. 

Number of line-widths supported on the graphics display. 

INTEGER Arraytl] = number of line-widths supported. 

Number of markers supported on the graphics display. 

INTEGER Arraytl] = # of distinct markers supported. 

Current value of color attribute. 

INTEGER Arrayfl] = Current value of color attribute. 

Current value of line-style attribute 
INTEGER Arrayfl] = Current value of line-style attribute. 

Current value of line-width attribute. 

INTEGER Arraytl] = Current value. 

Current timing mode. 

INTEGER Arraytl] = 0 - Immediate visibility 
INTEGER Arraytl] = 1 - System buffering 

Number of entries in the polygon style table. 

INTEGER Arraytl] = # styles. 

Current polygon interior color index. 

INTEGER Arraytl] = Index 
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Operation 

Selector Meaning _ 

1067 Current polygon style index. 

INTEGER Arrayll] - Index 

1068 Maximum number of polygon vertices that a display device can process. 

INTEGER Arrayll] = 0 No hardware support. 

= N (0<n<32767) Number of vertices supported. 

= 32767 The graphics display device uses all 

available memory to process polygons 
(the maximum number of vertices 
is determined by current free memory). 

1069 Does the graphics device support immediate, retroactive change of polygon style for 
polygons already displayed? 

INTEGER Arrayll] = 0 - No. 

INTEGER Arrayll] = 1 - Yes. 

1070 Does the graphics device support hardware (or low-level device handler) generation of 
polygons using INT_POLYGON_DD? 

INTEGER Arrayll] = 0 - No 
INTEGER Arrayll] = 1 - Yes 

1071 Does the graphics device support immediate, retroactive change for primitives already 
displayed? 

INTEGER Arrayll] = 0 - No 
INTEGER Arrayll] = 1 - Yes 

1072 Can the background color of the display be changed? 

INTEGER Arrayll] = 0 - No 
INTEGER Arrayll] = 1 - Yes 

1073 Can entries in the color table be redefined using SET_COLOR_TABLE? 

INTEGER Arrayll] - 0 - No 
INTEGER Arrayll] = 1 - Yes 

1074 Current color model in use. 

INTEGER Arrayll] = 1 - RGB 
INTEGER Arrayll] - 2 - HSL 

1075 Number of entries in the color capability table. The number returned does not include the 
background color. 

INTEGER Arrayll] = # entries 

1076 Current polygon interior line-style. 

INTEGER Arrayll] = Current interior line-style 

11050 Graphics display device association. 

String = Name of device path. (Internal device specifier.) 

INTEGER Arrayll] = Number of characters in the device path. 

11052 Locator device association. 

String = Name of device path. (Internal device specifier.) 

INTEGER Arrayll] = Number of characters in the device path. 
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Operation 

Selector 

Meaning 

12050 

Graphics display device information. 

String = Name of graphics display device. 

INTEGER Array! 1] = Number of characters in the device name. 

INTEGER Array[2] = Status 

= 0 Graphics display is not enabled. 

= 1 Graphics display is enabled. 

13052 

Graphics locator device information. 

String = Name of the locator device. 

INTEGER Array! 1] = Number of characters in the device name. 

INTEGER Array[2] = Status 

= 0 Locator device is not enabled. 

= 1 Locator device is enabled. 

INTEGER Array[3] = Number of buttons on the locator device. 


Error Conditions 

If the graphics system is not initialized, the call will be ignored, an ESCAPE (- 27) will be 
generated, and GRAPHICSERROR will return a non-zero value. 
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INT_LINE 

IMPORT: dgLtypes 
dgLlib 


This procedure draws a line from the starting position to the world coordinate specified. 

Syntax 



Item 

Description/Default 

Range 

Restrictions 

x coordinate 

Expression of TYPE Gshortint, This is subrange 
of INTEGER 

-32 768 to 32 767 

y coordinate 

Expression of TYPE Gshortint, This is subrange 
of INTEGER 

-32 768 to 32 767 


Procedure Heading 

PROCEDURE INT.LINE ( Iwx» Iwv : Gshortint )5 

Semantics 

The x and y coordinate pair is the ending of the line to be drawn in the world coordinate system. 

A line is drawn from the starting position to the world coordinate specified by the x and y 
coordinates. The starting position is updated to this point at the completion of this call. 

The primitive attributes of line style (see SET_LINE_STYLE), line width (see SET_LINE_ 
WIDTH), and color (see SET_COLOR) apply to lines drawn using INT_LINE. 

This procedure is the same as the LINE procedure, with the exception that the parameters are of 
type Gshortint (— 32 768..32 767). When used with some displays this procedure may perform 
about 3 times faster than the LINE procedure. For all other displays this procedure has about the 
same performance as the LINE procedure. 

The INT_LINE procedure only has increased performance when the following conditions exist: 

• The display must be a raster device. 

• The window bounds within the range - 32 768 to 32 767. 

• The window must be less then 32 767 units wide and high. 
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INT operations are provided for efficient vector generation. Although their use can be mixed with 
other, non-integer operations, one dot roundoff errors may result with mixed use since different 
algorithms are used to implement each. 

Drawing to the starting position generates the shortest line possible. Depending on the nature of 
the current line-style, nothing may appear on the graphics display surface. See SET_LINE_ 
STYLE for a complete description of how line-style affects a particular point or vector. 



Graphics Procedure Reference B-47 


INTJMOVE 

IMPORT: dgLtypes 
dgLlib 


This procedure sets the starting position to the world coordinate position specified. 


Syntax 



Item 

Description/Default 

Range 

Restrictions 

x coordinate 

Expression of TYPE Gshortint This is subrange 

-32 768 to 32 767 


of INTEGER 


y coordinate 

Expression of TYPE Gshortint, This is subrange 

-32 768 to 32 767 


of INTEGER 



Procedure Heading 

PROCEDURE INT_MOUE ( lux* Iwy : INTEGER )5 

Semantics 

The x and y coordinate pair define the new starting position in world coordinates. 

INT_MOVE specifies where the next graphical primitive will be output. It does this by setting the 
value of the starting position to the world coordinate system point specified by the x and y 
coordinate values and then moving the pen (or its logical equivalent) to that point. 

The starting position corresponds to the location of the physical pen or beam in all but four 
instances: after a change in the viewing transformation, after initialization of a graphical display 
device, after the output of a text string, or after the output of an escape function. A call to MOVE 
or INT_MOVE should therefore be made after any one of the following calls to update the value 
of the starting position and in so doing, place the physical pen or beam at a known 
location: SET_ASPECT, DISPLAY JNIT, SET_DISPLAY_LIM, OUTPUT_ESC, TEXT, SET_ 
VIEWPORT, and SET_WINDOW. 

This procedure is the same as the MOVE procedure, with the exception that the parameters are of 
type Gshortint (-32 768..32 767). When used with the same display, this procedure can 
perform about 3 times faster than the MOVE procedure. For all other displays this procedure has 
about the same performance as the MOVE procedure. 
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The INT_MOVE procedure only has increased performance when the following conditions exist: 

• The display must be a raster device. 

• The window bounds within the range -32 768 to 32 767. 

• The window must be less than 32 767 units wide and high. 

INT operations are provided for efficient vector generation. Although their use can be mixed with 
non-integer operations, one dot roundoff errors may result with mixed use since different 
algorithms are used to implement each. 

Error Conditions 

The graphics system must be initialized and a graphics display must be enabled or the call will be 
ignored, an ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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INT_POLYGON 

IMPORT: dgLtypes 
dgLlib 
dgLpoly 


This procedure displays a polygon-set starting and ending at the specified point adhering to the 
specified polygon style exactly as specified (i.e., device-independent results). 


Syntax 
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Note 

The first entry in the operation selector array must be 2, since it is the 
first vertex of a sub-polygon. 


INT_POLYGON is used to output a polygon-set, specified in world coordinates, adhering exactly 
to the polygon style attributes that are currently specified. A polygon-set is a set of polygons 
(called “sub-polygons”) that are treated graphically as one polygon. This is accomplished by 
“stacking” the sub-polygons. The subpolygons in a polygon-set may intersect or overlap each 
other. 

The edge of a sub-polygon is defined as the line sequence that connects its vertices in the order 
specified. If the last vertex specified for a sub-polygon is not the same as the first, they are 
automatically connected. 

When a polygon-set is displayed, the primitive attributes for polygons and lines define its 
appearance. In particular, the interior of the polygon-set will be filled according to the attributes 
of polygon style, polygon interior color and polygon interior line-style. If the edges are to be 
displayed as specified in the polygon style, the edges will adhere to the current line attributes of 
color, line-style and line-width. A dot will disappear on an edged polygon if the edge is done with 
a complementing line. 

The filling of polygons also depends on how the sub-polygons “nest” within each other. An 
“even-odd” rule is used for determining which areas will be filled. Moving across the screen, 
count the edges of the polygon. Odd-numbered edges will turn the fill on and even-numbered 
edges will turn the fill off. The picture below will help clear up how the fills work. 



Polygon Filling 
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Refer to SET_PGN_TABLE, SET_PGN_STYLE, SET_PGN_COLOR, SET_PGN_LS for a more 
detailed description of how attributes affect polygons. 

As stated above, the values in the operation selector array define how the edges of the sub¬ 
polygons are displayed. The edge from the (I-l)th vertex to the Ith vertex will only be displayed if 
the Ith entry in the operation selector array equals 1. To display the edge from the last vertex to 
the first vertex of a sub-polygon, the first vertex must be explicitly respecified after all the other 
vertices of the sub-polygon, with an operation selector equal to 1. Otherwise the edge from the 
last vertex to the first will not be drawn. It will, however, automatically be connected for polygon 
filling. 

If it is within the capabilities of the device, filling of the sub-polygon will be done to the 
sub-polygon edges regardless of whether the edges are displayed. If an entry in the operation 
selector array does not equal 0, 1, or 2, it will be treated as if it were equal to 0 and the edge will 
not be drawn. 

When INT_POLYGON is used, the current position is updated to the end of the last sub-polygon 
specified in the polygon-set. The end of the last sub-polygon is defined to be the first (implicit last) 
vertex of the subpolygon. So, if there is only one vertex in a polygon-set this call degenerates to 
an update of the current position to the first coordinate set in the x and y point arrays (x 
coordinate array[l], y coordinate array[l]). 

It is the application program’s responsibility to ensure that the arrays are all dimensioned to at 
least the number of elements specified by points and that at least that many values are contained 
in each array. 

Polygons are defined to be closed surfaces. When a sub-polygon extends beyond a clipping edge 
the closed nature of the sub-polygon is destroyed. As with other primitives, unpredictable results 
may occur if the sub-polygon extends beyond the clipping window. 

This procedure is the same as the POLYGON procedure, with the exception that the parameters 
are of type Gshortint ( -32 768..32 767). When used with some displays this procedure may 
perform about 3 times faster than the POLYGON procedure. For all other displays this procedure 
has about the same performance as the POLYGON procedure. 

The INT_POLYGON procedure only has increased performance when the following conditions 
exist: 

• The display must be a raster device. 

• The window bounds are within the range -32 768 through 32 767. 

• The window must be less than 32 767 units wide and high. 

INT_POLYGON is provided for efficient vector generation. Although its use can be mixed with 
MOVE, LINE, POLYLINE, and POLYGON, one dot roundoff errors may result with mixed use 
since different algorithms are used to implement each. 

Error Conditions 

The graphics system must be initialized, a graphics display must be enabled, all parameters must 
be within specified limits and the number of points specified must be greater than 0 or the call will 
be ignored, an ESCAPE ( - 27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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INT_POLYGON_DD 

IMPORT: dgLtypes 
dgLlib 
dgLpoly 

This procedure displays a polygon-set starting and ending at the specified point adhering to the 
specified polygon style in a device-dependent fashion. 


Syntax 



points Expression of TYPE INTEGER MININT thru MAXINT 

x array name Array of TYPE Gshortint. Gshortintis a sub- -32 768 to 32 767 

range of INTEGER. 

y array name Array of TYPE Gshortint. Gshortintis a sub- - 32 768 to 32 767 

range of INTEGER. 

operation selector array Array of TYPE Gshortint Gshortintis a sub- - 32 768 to 32 767 

name range of INTEGER. 

Procedure Heading 

PROCEDURE INT_POLYGON_ DD ( Npoint : INTEGER; 

A N Y U A R X u e c : Gshortint_list5 

ANYUAR Yuec : Gs h o r tin t_1 i s t 5 

A N Y U A R Opcodes : Gin t _1 i s t ) 5 

Semantics 

Points is the number of vertices in the polygon set. 

The x and y coordinate arrays contain the world coordinate values for each vertex of the 
polygon-set. The vertices must be in order. The vertices for the first sub-polygon must be at the 
beginning of these arrays, followed by the vertices for the second sub-polygon, etc. So, the 
coordinate arrays must contain a total number of vertices that equals points. 

The operation selector array contains a series of integer operation selectors defining which 
vertices start new polygons, and defining which edges should be displayed. 
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Value 

0 

1 

2 


Meaning _ 

Don’t display the line for the edge extending to this vertex from the previous vertex. 
Display the line for the edge extending to this vertex from the previous vertex. 

This vertex is the first vertex of a sub-polygon. Succeeding vertices are part of a 
sub-polygon until a new start-of-polygon operation selector (2) is encountered. (Or the 
end of the arrays is encountered.) 


Note 

The first entry in the operation selector array must be 2, since it is the 
first vertex of a sub-polygon. 


INT_POLYGON_DD is used to output a polygon-set, specified in world coordinates, adhering 
within the capabilities of the device to the polygon style attributes that are currently specified. A 
polygon-set is a set of polygons (called “sub-polygons”) that are treated graphically as one 
polygon. The subpolygons in a polygon-set may intersect or overlap each other. 

The edge of a sub-polygon is defined as the line sequence that connects its vertices in the order 
specified. If the last vertex specified for a sub-polygon is not the same as the first, they are 
automatically connected. 

When a polygon-set is displayed, the primitive attributes for polygons and lines define its 
appearance. In particular, the interior of the polygon-set will be filled according to the attributes 
of polygon style, polygon interior color and polygon interior line-style. If the edges are to be 
displayed as specified in the polygon style, the edges will adhere to the current line attributes of 
color, line-style and line-width. 

The filling of polygons also depends on how the sub-polygons “nest” within each other. An 
“even-odd” rule is used for determining which areas will be filled. Moving across the screen, 
count the edges of the polygon. Odd-numbered edges will turn the fill on and even-numbered 
edges will turn the fill off. The picture below will help clear up how the fills work. 
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Refer to SET_PGN_TABLE, SET_PGN_STYLE, SET_PGN_COLOR, SET_PGN_LS for a more 
detailed description of how attributes affect polygons. 

As stated above, the values in the operation selector array define how the edges of the sub¬ 
polygons are displayed. The edge from the (1-1 )th vertex to the Ith vertex will only be displayed if 
the Ith entry in the operation selector array equals 1. To display the edge from the last vertex to 
the first vertex of a sub-polygon, the first vertex must be explicitly respecified after all the other 
vertices of the sub-polygon, with an operation selector equal to 1. Otherwise the edge from the 
last vertex to the first will not be drawn. It will, however, automatically be connected for polygon 
filling. 

If it is within the capabilities of the device, filling of the sub-polygon will be done to the 
sub-polygon edges regardless of whether the edges are displayed. If an entry in the operation 
selector array does not equal 0, 1, or 2, it will be treated as if it were equal to 0, i.e., the edge will 
not be drawn. 

When INT_POLYGON_DD is used, the current position is updated to the end of the last 
sub-polygon specified in the polygon-set. The end of the last sub-polygon is defined to be the first 
(implicit last) vertex of the subpolygon. So, if there is only one vertex in a polygon-set this call 
degenerates to an update of the current position to the first coordinate set in the x and y point 
arrays (x coordinate array[l], y coordinate arrayll]). 

It is the application program’s responsibility to ensure that the arrays are all dimensioned to at 
least the number of elements specified by points and that at least that many values are contained 
in each array. 

Device capabilities vary widely. Not all devices are able to draw polygon edges as requested. If a 
device is not able to draw polygon edges as requested, they will be simulated in software. The 
simulation will always adhere to the edge value in SET_PGN_STYLE and the operation selector 
in INT_POLYGON_DD, but the line-style and color of the edge will depend on the capability of 
the device to produce lines with those attributes. 

Polygon fill capabilities can vary widely between devices. A device may have no filling capabilities 
at all, may be able to perform only solid fill, or may be able to fill polygons with different fill 
densities and at different fill line orientations. INT_POLYGON_DD tries to match the device 
capabilities to the request. If the device cannot fill the request at all, then no simulation is done 
and the polygon will not be filled. For HPGL plotters, the fill is simulated. For raster devices, if the 
density is greater than 0.5, a solid fill is used, otherwise, the fill is simulated. 

In the case where the polygon style specifies non-display of edged, this would result in no visible 
output although visible output had been specified. To provide some visible output in this case, 
INT_POLYGON_DD will outline the polygon using the color and line-style specified for the fill 
lines. However, only those edge segments specified as displayable by the operation selector array 
will be drawn. Therefore, if all edge segments are specified as non-displayed, there will still be no 
visible output. 

Regardless of the capabilities of the device, INT_POLYGON_DD sets the starting position to the 
first vertex of the last member polygon specified in the call. If there is only one polygon specified, 
the starting position will therefore be set to the first vertex specified. 
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Polygons are defined to be closed surfaces. When a sub-polygon extends beyond a clipping edge 
the closed nature of the sub-polygon is destroyed. As with other primitives, unpredictable results 
may occur if the sub-polygon extends beyond the clipping window. 

This procedure is the same as the procedure POLYGON_DEV_DEP, with the exception that the 
parameters are of type Gshortint (-32 768..32 767). When used with some displays this 
procedure may perform about 3 times faster than the POLYGON_DEVJDEP procedure. For all 
other displays this procedure has about the same performance as the POLYGON_DEV_DEP 
procedure. 

The INT_POLYGON_DD procedure only has increased performance when the following condi¬ 
tions exist: 

• The display is a raster device. 

• The window bounds are within the range —32 768 through 32 767. 

• The window is less then 32 767 units wide and high. 

INT_POLYGON_DD is provided for efficient vector generation. Although its use can be mixed 
with MOVE, LINE, POLYLINE, and POLYGON_DEV_DEP, one dot roundoff errors may result 
with mixed use since different algorithms are used to implement each. 

Error Conditions 

The graphics system must be initialized, a graphics display must be enabled, all parameters must 
be within specified limits and the number of points (Points) must be greater than 0 or the call will 
be ignored, an ESCAPE ( - 27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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INT_POLYLINE 


IMPORT: dgLtypes 
dgLlib 


This procedure draws a connected line sequence starting at the specified point. 

Syntax 



Item 

Description/Default 

Range 

Restrictions 

points 

Expression of TYPE INTEGER 

MININT thru MAXINT 

x array name 

Array of TYPE Gshortint. Gshortint is a sub¬ 
range of INTEGER. 

-32 768 to 32 767 

y array name 

Array of TYPE Gshortint. Gshortint is a sub¬ 
range of INTEGER. 

-32 768 to 32 767 


Procedure Heading 

PROCEDURE INT-POLYLINE ( Npts : INTEGER? 

A N Y U A R Xv e c t Y u e c : Gshortint_list ) 

Semantics 

Points is the number of vertices in the polygon set. 

The x and y coordinate arrays contain the world coordinate values for each vertex of the 
polyline-set. The vertices must be in order. The vertices for the first sub-polyline must be at the 
beginning of these arrays, followed by the vertices for the second sub-polyline, etc. So, the 
coordinate arrays must contain a total number of vertices that equals points. 

The procedure INT_POLYLINE provides the capability to draw a series of connected lines 
starting at the specified point. A complete object can be drawn by making one call to this 
procedure. This call first sets the starting position to be the first elements in the x and y coordinate 
arrays. The line sequence begins at this point and is drawn to the second element in each array, 
then to the third and continues until points-1 lines are drawn. 

This procedure is equivalent to the following sequence of calls: 

IN T _ M 0 U E ( X _ c o o r d i n a t e _ a r r a '/ C1 ] t Y _ c o o r d i n a t e _ a r r a y C i ] ) 5 

INT-LINE (X _ c o o r din a t e _ a r r a yC 2 3 »Y _ c o o r din a t e _ a r r a v C 2]) 5 

INT-LINE ( X _ c o o r d i n a t e _ a r r a y [ 3 ] > Y _ c o o r din a t e _ a r r a v [31) 5 


INT-LINE (X_coo rdinat e_a r ray[Points] »Y_coo rdinat e_a r ray[Points]) 5 
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The starting position is set to (X_coordinate_array[Points], Y_coordinate_array[Points]) at the 
completion of this call. 

Specifying only one element, or Points equal to 1, causes a move to be made to the world 
coordinate point specified by the first entries in the two coordinate arrays. 

It is the application program’s responsibility to ensure that the arrays are all dimensioned to at 
least the number of elements specified by points and that at least that many values are contained 
in each array. 

Depending on the nature of the current line-style nothing may appear on the graphics display. 
See SET_LINE_STYLE for a complete description of how line-style affects a particular point or 
vector. 

The primitive attributes of color, line-style, and line-width apply to polylines. 

This procedure is the same as the POLYLINE procedure, with the exception that the parameters 
are of type Gshortint (-32 768..32 767). When used with some displays this procedure may 
perform about 3 times faster than the POLYLINE procedure. For all other displays this procedure 
has about the same performance as the POLYLINE procedure. 

The INT_POLYLINE procedure only has increased performance when the following conditions 
exist: 

• The display must be a raster device. 

• The window bounds within the range —32 768 to 32 767. 

• The window must be less then 32 767 units wide and high. 

INT-POLYLINE is provided for efficient vector generation. Although its use can be mixed with 
MOVE, LINE, and POLYLINE, one dot roundoff errors may result with mixed use since different 
algorithms are used to implement each. 

Error Conditions 

The graphics system must be initialized, a graphics display must be enabled, all parameters must 
be within specified limits and the number of points (points) must be greater than 0 or the call will 
be ignored, an ESCAPE {-21) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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LINE 


IMPORT: dgLlib 


This procedure draws a line from the starting position to the world coordinate specified. 


Syntax 


-< LINE 


coordinate 


coordinate 


Item 

Description/Default 

Range 

Restrictions 

x coordinate 

x coordinate 

Expression of TYPE REAL 

Expression of TYPE REAL 

— 


Procedure Heading 

PROCEDURE LINE ( Wx» Wv : REAL )5 

Semantics 

A line is drawn from the starting position to the world coordinate specified by the X and Y 
coordinates. The starting position is updated to this point at the completion of this call. 

The x and y coordinate pair is the ending of the line to be drawn in the world coordinate system. 

The primitive attributes of line style, line width, and color apply to lines drawn using LINE. 
Drawing to the starting position generates the shortest line possible. Depending on the nature of 
the current line-style, nothing may appear on the graphics display surface. See SET-LINE- 
STYLE for a complete description of how line-style affects a particular point or vector. 

Error Conditions 

The graphics system must be initialized and a display must be enabled or this call will be ignored, 
an ESCAPE ( — 27) will be generated, and GRAPHICSERROR will return a non-zero value. 






Graphics Procedure Reference B-59 


LOCATOR_INIT 

IMPORT: dgLlib 


This procedure enables the locator device for input. 


Syntax 


— ^LOCATOFUNIt) — »(T)—» 


error.variable 


K>> 


Item 

Description/Default 

Range 

Restrictions 

device selector 

Expression of TYPE INTEGER 

MININT TO MAXINT 

error variable name 

Variable of TYPE INTEGER 

— 


Procedure Heading 

PROCEDURE LOCATOR-1NIT ( Dev_Adr : INTEGER t 

VAR Ierr : INTEGER )? 

Semantics 

The device selector specifies the physical addresses of the graphics locator device. 


Device Selector 

Locator Device Selected 

2 

Relative locator, such as knob 
or mouse 

100..3199 

HP-IB device at specified select 
code and address 

201 

HP-HIL absolute locators 

202 

HP-HIL relative locators 


The error variable will contain a value indicating whether the locator device was successfully 
enabled. 


Value 

0 

2 


Meaning 

The locator device was successfully initialized. 

Unrecognized device specified. Unable to communicate with a device at the specified 
address, non-existent interface card or non-graphics system supported interface card. 


If the error variable contains a non-zero value, the call has been ignored. 

LOCATOR-INIT enables the logical locator device for input. Enabling the locator includes 
associating the logical locator device with a physical device and initializing the device. The device 
name is set to the name of the physical device, the device status is set to 1 (enabled) and the 
internal device selector used by the graphics library is set equal to the device selector provided by 
the user. This information is available by calling INQ_WS with operation selectors 11052 and 
13052. 
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LOCATOR-INIT implicitly makes the picture current before attempting to initialize the device. 

LOCATOR_INIT enables the logical locator device for input. Enabling the locator includes 
associating the logical locator device with a physical device and initializing the device. 


The graphics library attempts to directly identify the type of device by using its device address in 
some way. The meanings of the device address are defined above. 

At the time that the graphics library is initialized, all devices which are to be used must be 
connected, powered on, ready, and accessible via the specified physical address. Invalid addres¬ 
sed or unresponsive devices result in that device not being initialized and an error being returned. 

The locator device must be enabled before it is used for input. The locator device is disabled by 
calling LOCATOR-TERM. 

If the graphics display and the locator are not the same physical device (e.g., Model 276 display 
and HP 9111 locator), then the logical locator limits will be set to the default values for the 
particular locator used. If the graphics display and locator are the same physical device (e.g., 
Model 226 display and Model 226 knob locator), then the logical locator limits are set to the 
current view surface limits. 

The locator echo position is set to the default value (see SET_ECHO_POS). 

Only one locator device may be enabled at a time. If a locator is currently enabled, then the 
enabled device will be terminated (via LOCATOR-TERM) and the call will continue. The locator 
device should be disabled before the termination of the application program. LOCATOR_INIT is 
the complementary routine to LOCATOR-TERM. 
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Absolute Locator Limits (HPGL Plotter, Graphics Tablet, or Touchscreen) 

When the locator device is initialized on an HPGL plotter or graphics tablet, the graphics 
display is left unaltered. HPGL and HP-HIL devices are initialized to the following defaults 
when LOCATORJNIT is executed: 


Plotter 

Wide 

mm 

High 

mm 

Wide 

points 

High 

points 

Aspect 

Resolution 

points/mm 

7440A 

272.5 

191.25 

10900 

7650 

.7018 

40.0 

7470 

257.5 

191.25 

10300 

7650 

.7427 

40.0 

7475 

416 

259.125 

16640 

10365 

.6229 

40.0 

7550 

411.25 

254.25 

16450 

10170 

.6182 

40.0 

7570A 

809.5 

524.25 

32380 

20970 

.6476 

40.0 

7575A 

809.5 

524.25 

32380 

20970 

.6476 

40.0 

7576A 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

7580 

809.5 

524.25 

32380 

20970 

.6476 

40.0 

7585 

1100 

891.75 

44000 

35670 

.8107 

40.0 

7586 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

7595A/B 

1100 

891.75 

44000 

35670 

.8107 

40.0 

7596A/B 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

7599A 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

9872 

400 

285 

16000 

11400 

.7125 

40.0 

35723 

210.0 

164.0 

57 

43 

.7500 

470.0 

46087A 

297.6 

216.5 

11904 

8660 

.7275 

40.0 

46088A 

432.4 

297.6 

17296 

11904 

.6883 

40.0 


The 7595B, 7596B and 7599A plotters are only supported in 7595A or 7596A emulation 
mode. 

The maximum physical limits of the locator for a HPGL device not listed above are determined by 
the default settings of PI and P2. The default settings of PI and P2 are the values they have after 
an HPGL ’IN’ command. Refer to the specific device manual for additional details. 


The default logical display surface is set equal to the area defined by PI and P2 at the time 
LOCATORJNIT is invoked. 


Note 

If the paper is changed in an HP7570A, HP 7575A, HP 7576A, 
HP 7580, HP 7585, HP 7595A/B, HP 7596A/B, or HP 7599A plotter 
while the graphics locator is initialized, it should be the same size of paper 
that was in the plotter when LOCATORJNIT was called. If a different size 
of paper is required, the device should be terminated (LOCATOR JliRM) 
and re-initialized after the new paper has been placed in the plotter. 


No locator points are returned while the pen control buttons are depressed on HPGL plotters. 
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Relative Locators (Knob or Mouse) - An Example: 

The knob locator is initialized on a Model 226. The graphics display is an HP 98627A color output 
card. The resolution of the locator is 0 through 399 in the X dimension, and 0 through 299 in the Y 
dimension. The resolution of the display is 0 through 511 in the X dimension, and 0 through 389 in 
the Y dimension. When AWAIT_LOCATOR is used with echo 4, the locator will effectively have 
the HP 98627A resolution for the duration of the AWAIT_LOCATOR call. However, if echo 1 is 
used with AWAIT_LOCATOR, the cursor will appear on the Model 226 and the locator has a 
resolution of 0 through 399 and 0 through 299. Note that all conversion routines and inquiries will 
use the Model 226 limits. 

The physical origin of the locator device is the lower left corner of the display. 

Error Conditions 

The graphics system must be initialized or this call will be ignored, an ESCAPE (- 27) will be 
generated, and GRAPHICSERROR will return a non-zero value. 

HP-HIL Absolute Locator Semantics 

The value of DEV.ADDR must be 201 to activate an HP-HIL absolute locator; the 2 is the 
keyboard “address” times 100 (HP-IB convention), and the 1 is a token indicating “absolute 
locator.” 

IERR is an error return variable, as usual in DGL. If IERR=0, the call to LOCATORJNIT 
successfully set up at least one absolute locator device, and operations can proceed. If IERR^O, 
this indicates a DGL error condition, and digitizing from HP-HIL tablets does not occur. 

The call to LOCATORJNIT can be made any time after a call to GRAPHICSJNIT, and is 
intended to initialize DGL so that the locator operations can be performed with the device(s) 
specified by DEV.ADDR. 

Note that all absolute locators on the HP-HIL are activated, “lumped” together, and scaling is 
done on the greatest maximum count for each dimension. That is, if Device A has more counts 
in the X direction, and Device B has more counts in the Y direction, the scaling would take 
Xmax from Device A and Ymax from Device B. See OUTPUT_ESC for information on dealing 
with this situation. 

To get DGL support of HP-HIL tablets, you need to execute the HPHIL and DGL_ABS files 
or put them in INITLIB and reboot before accessing the tablet. Both files are found on the 
CONFIG: disc (or ACCESS: disc for double sided disc) of your Pascal Operating System. If 
either of these files has not been executed, an appropriate error is returned from the routine 
LOCATORJNIT. 
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HP-HIL Relative Locator Semantics 

The value of dev_addr must be 202 to activate an HP-HIL relative locator; the 2 is the keyboard 
“address” times 100 (HP-IB convention), and the last 2 is a token indicating “relative locator.” 

IERR is an error return variable, as usual in DGL. If IERR=0, the call to LOCATORJNIT 
successfully set up at least one absolute locator device, and operations can proceed. If IERR^O, 
this indicates a DGL error condition, and digitizing from HP-HIL tablets does not occur. 

The call to LOCATORJNIT can be made any time after a call to GRAPHICSJNIT, and is 
intended to initialize DGL so that the locator operations can be performed with the device(s) 
specified by DEV_ADDR. 

Note that all relative locators on HP-HIL are activated and “lumped” together. See OUT- 
PUT.ESC for information on dealing with this situation. 

Note also that if Mouse were executed in INITLIB, all HP-HIL mouse and knob devices generated 
arrow keys when moved. LOCATORJNIT (202, ERR) terminates generation of arrow keys until 
LOCATOR_TERM or GRAPHICS_TERM is executed. If some kind of error prevents execution 
of LOCATOR.TERM or GRAPHICS.TERM the CLR-I/O key (STOP key on 46020 keyboards) 
will restore arrow key functionality. 

Enhanced DGL support of HP-HIL mouse and knob locators also requires the files HPHIL and 
DGL.REL to have been executed or put in INITLIB before accessing the device. As stated 
above, both files are found on the CONFIG: (ACCESS: for double sided) disc of your Pascal 
Operating System. If either of these files has not been executed, an appropriate error is returned 
from the routine LOCATORJNIT. 
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LOCATOR-TERM 


IMPORT: dgLlib 


This procedure disables the enabled locator device. 


Syntax 


->^LOCATOR-TERm)—►- 


Procedure Heading 

PROCEDURE LOCATOR-TERM 5 

Semantics 

LOCATOR-TERM terminates and disables the enabled locator device. It transmits any termina¬ 
tion sequence required by the device and releases all resources being used by the device. The 
device name is set to the default device name (’ ’), the device status is set to 0 (not enabled) and 
the device address is set to 0. 

LOCATOR-TERM is the complementary routine to LOCATOR-INIT. 

If a locator device is used, LOCATOR-TERM should be called before the application program is 
terminated. 

Error Conditions 

The graphics system must be initialized and a locator device enabled or this call will be ignored, an 
ESCAPE ( - 27) will be generated, and GRAPHICSERROR will return a non-zero value. 

HP-HIL Absolute Locator Semantics 

Turns off whatever DGL locator is presently enabled by LOCATORJNIT. “Turn off” may or 
may not do something to the hardware; it may just disconnect software linkages. HP-HIL 
locators do not even know they’ve been “turned off” by DGL, except that HP-HIL relative 
locators stop “keeping track” of their position. Note that if the module Mouse was installed in 
INITLIB, arrow keys stopped being generated from knobs and the mouse when LOCATOR_INIT 
(202, ERR) was successfully executed. LOCATOR-TERM would restore arrow key functionality 
from knob and mouse devices in this case. 
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MAKE_PIC_CURRENT 

IMPORT: dgLlib 


This procedure makes the picture current. 

Syntax 

MAKE_PIC_CURRENT 


Procedure Heading 

PROCEDURE MAKE_PIC_CURRENT? 

Semantics 

The graphics display surface can be made current at any time with a call to MAKE_PIC_ 
CURRENT. This insures that all previously generated primitives have been sent to the graphics 
display device. Due to operating system delays, all picture changes may not have been displayed 
on the graphics display upon return to the calling program. MAKE_PIC_CURRENT is most often 
used in system buffering mode (see SET_TIMING) to make sure that all output has been sent to 
the graphics display device when required. 

Before performing any non-graphics library input or output to an active graphics device, (e.g., a 
Pascal read or write), it is essential that all of the previously generated output primitives be sent to 
the device. If immediate visibility is the current timing mode, all primitives will be sent to the 
device before completion of the call to generate them, but if system buffering is used, MAKE_ 
PIC_CURRENT should be called before performing any non-graphics system I/O. 

The following routines implicitly make the picture current: 

A WAIT-LOC AT OR DISPLAY-TERM INPUT-ESC 

LOCATOR-INIT SAMPLE-LOCATOR 

A call to MAKE_PIC_CURRENT can be made at any time within an application program to insure 
that the image is fully displayed. MAKE_PIC_CURRENT does not modify the current timing 
mode. 

Error Conditions 

The graphics system must be initialized and a display must be enabled or this call will be ignored, 
an ESCAPE (— 27) will be generated, and GRAPHICSERROR will return a non-zero value. 
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MARKER 


IMPORT: dgLlib 


This procedure outputs a marker symbol at the starting position. 


Syntax 


—c MARKER D-KD-{ 


Item 

Description/Default 

Range 

Restrictions 

Recommended 

Range 

marker selector 

Expression of TYPE INTEGER 

MININT TO 
MAXINT 

1 thru 19 


Procedure Heading 

PROCEDURE MARKER ( Marker.num : INTEGER )? 

Semantics 

The marker selector determines which marker will be output. There are 19 defined invariant 
marker symbols (1-19). They are defined as follows: 


1 - V 

7 - rectangle 

13 - ’3’ 

2-’+’ 

8 - diamond 

14 - ’4’ 

3 - ’*’ 

9 - rectangle with cross 

15-’5’ 

4-’O’ 

10-’0’ 

16-’6’ 

5 - ’X’ 

11 -T 

17 - ’7’ 

6 - triangle 

12-’2’ 

18 - ’8’ 
19- ’9’ 


Marker numbers 20 and larger are device dependent. 

MARKER outputs the marker designated by the marker selector, centered about the starting 
position. The starting position is left unchanged at the completion of this call. 

If the marker selector specified is greater than the number of distinct marker symbols that are 
supported by a device, then marker number 1 will be used. INQ_WS can be used to inquire 
the number of distinct marker symbols that are available on a particular graphics display device. 
Depending on a particular display device’s capabilities, the graphics library uses either hardware 
or software to generate the marker symbols. 

The size and orientation of markers is fixed and not affected by the viewing transformation. The 
size of markers is device dependent and cannot be changed. 

Only the primitive attributes of color and highlighting apply to markers. However, the marker will 
appear with these attributes only if the device is capable of applying them to markers. 

Error Conditions 

The graphics system must be initialized and a display device enabled or the call will be ignored, an 
ESCAPE ( - 27) will be generated, and GRAPHICSERROR will return a non-zero value. 
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MOVE 

IMPORT: dglJib 


This procedure sets the starting position to the world coordinate specified. 

Syntax 


-< MOVE 


coordinate 


coordinate 


Item 

Description/Default 

Range 

Restrictions 

x coordinate 

y coordinate 

Expression of TYPE REAL 

Expression of TYPE REAL 

— 


Procedure Heading 

PROCEDURE MOVE ( Wx » Mv : REAL ) i 

Semantics 

MOVE specifies where the next graphical primitive will be output. It does this by setting the value 
of the starting position to the world coordinate system point specified by the X,Y coordinate 
values and then moving the physical beam or pen to that point. 

The x and y coordinate pair is the new starting position in world coordinates. 

The starting position corresponds to the location of the physical pen or beam in all but four 
instances: after a change in the viewing transformation, after initialization of a graphical display 
device, after the output of a text string, or after the output of a graphical escape function. A call to 
MOVE or INT_MOVE should therefore be made after any one of the following calls to update the 
value of the starting position and in so doing, place the physical pen or beam at a known 
location: SET^SPECT, DISPLAYJNIT, SET_DISPLAY_LIM, OUTPUT_ESC, TEXT, SET_ 
VIEWPORT, and SET_WINDOW. 

Error Conditions 

The graphics system must be enabled and a display device enabled or this call will be ignored, an 
ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero value. 
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OUTPUT_ESC 

IMPORT: dglJib 


This procedure performs a device dependent escape function to access special features of a 
graphics display device. 


Syntax 


-c OUTPUT_fSC 


INTEGER 
array size 


HM 


REAL 

array size 


G 




INTEGER 
array name 


REAL 

array name 


KH 


error variable 
name 


Item 

Description/Default 

Range 

Restrictions 

Recommended 

Range 

operation selector 

Expression of TYPE INTEGER 

MININT to 
MAXINT 

- 

INTEGER array 
size 

Expression of TYPE INTEGER 

MININT to 
MAXINT 

>0 

REAL array size 

Expression of TYPE INTEGER 

MININT to 
MAXINT 

>0 

INTEGER array 
name 

Any valid variable. 

Should be INTEGER array 

- 

- 

REAL array name 

Any valid variable. 

Should be REAL array 

— 

- 

error variable name 

Variable of TYPE INTEGER 

- 

- 


Procedure Heading 


PROCEDURE OUTPUT-ESC ( 


a 

CL 

a 

ode 

INTEGER 5 



I s i 

z e 

INTEGER 5 



R s i 

z e 

INTEGER 5 

ANY 

MAR 

11 i 

s t 

G i n t _ 1 i s 

ANY 

VAR 

R1 i 

s t 

G r e a 1 _ 1 i 


VAR 

ler 

r 

INTEGER 


Semantics 

The operation selector determines the device dependent output escape function to be per¬ 
formed. The codes supported for a given device are described in the device handlers section of 
this document. 

The INTEGER array size is the number of INTEGER parameters contained in the INTEGER 
array. The thousand’s digit of the operation selector is the number of INTEGER parameters that 
the graphics system expects. 
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The REAL array size is the number of REAL parameters contained in the REAL array by the 
escape function. The hundred’s digit of the operation selector is the number of REAL parameters 
that the graphics system expects. 

The INTEGER array is the array in which zero or more INTEGER parameters are contained. 
The REAL array is the array in which zero or more REAL parameters are contained. 


The error variable will contain a value indicating whether the escape function was performed. 


Value 

0 

1 

2 

3 

4 


Meaning _ 

Output escape function successfully sent to the device. 

Operation not supported by the graphics display device. 

The INTEGER array size is not equal to the number of required INTEGER parameters. 
The REAL array size is not equal to the number of required REAL parameters. 

Illegal parameters specified. 


If the error variable contains a non-zero value, the call has been ignored. 


OUTPUT_ESC allows application programs to access special device features on a graphics 
display device. The desired escape function is specified by a unique value for opcode. 

The type of information passed to the graphics display device is determined by the value of 
opcode. The graphics library does not check OUTPUT_ESC parameters which will be sent 
directly to the display device. This can lead to device dependent results if out of range values are 
sent. 


Output escape functions only apply to the graphics display device. 

The starting position may be altered by a call to OUTPUT_ESC. 

Error Conditions 

The graphics system must be initialized and a display device must be enabled or this call will be 
ignored, an ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 

For HPGL plotters, it is recommended that you read the operator’s or programmer’s manual 
for the peripheral before programming HPGL OUTPUT_ESC values. 
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HP-HIL Locator Semantics 

The output_esc procedure, when called in relation to HP-HIL input devices, allows you to specify 
which HP-HIL devices on the loop are to be active. 

For HP-HIL locator devices (i.e., LOCATORJNIT was called with a value of 201 or 202), the 
effect of the OUTPUT_ESC call is as follows. 


0sSIarrCl]ssl27 


IarrCllCO 
IarrC1]>127 


HP-HIL addresses 1-7, corresponding to bit 0-6, are enabled (bit 
value of 1) or disabled (bit value of 0) as potential locators. If the 
device at address (bit) H- 1 is not a locator, the value of the bit is 
irrelevant-the device is not activated. 

Once active devices are selected, locator scaling is performed to 
the largest active device, in the case of LOCATORJNIT 201. For 
LOCATORJNIT 202 this is not relevant. If no devices are active 
at this point, an error is generated (escapecode=-27) because scaling 
could not take place. 

Error condition: E r r = 4; “Illegal parameters specified.” 

Works with larrt 13 mod 128. 


A call to o u t p u t _ e s c when dealing with HP-HIL devices would take the following form*: 
output.esc(1030» 1 > 0» Iarr> Rarr> Err) 5 

For HP-HIL relative locators only, the opcode 1091 is also useful. After performing a loca- 
tor_init(202, err), the keyboard is “active” for terminating the awaitjocator procedure. Arrow 
keys, as well as any other keys will act as the “button”, and return their values (as the ordinals 
of their character values) while digitizing the current location. 

If you wish keyboard keys not to terminate awaitjocator, use output_esc(1091, 1, 0, Iarr, Rarr, 
Err), with a value of 0 for Iarr[l]. This tells DGL to accept only mouse buttons to terminate 
awaitjocator. Beware: the HP-HIL “knob” and the 98203C keyboard knob have no buttons; 
there is no way to terminate awaitjocator using these devices after the above output_esc has 
been performed. 

If LOCATORJNIT (201,ERR) or LOCATORJNIT (202,ERR) was not executed prior to either 
of these calls, the system would report one of three errors: 

escapecode=— 27 and If no locator has been activated. 

graphicserror=3 

escapecode=—27 and If no display has been initialized 

graphicserror=0 

err=l If a locator other than 201 or 202 has been activated. 

This use ofoutput_esc is an extension of functionality of previous implementations of output_esc, 
which specified that output_esc should only talk to output devices (e.g., displays and plotters), not 
input devices, such as locators. 


A “9” as the tens digit in the input_esc opcode indicates a locator opcode. 



Graphics Procedure Reference B-71 


Raster Device Escape Operations 
Operation 

Selector I Function 


52 


Dump graphics of the currently active display device if it is the console or a bit-mapped display. 
Graphics will be dumped to the graphics printer (PRINTER:); if color, all planes are ORed. 


53 


54 


250 

1050 1 

1051 1 

1052 


For the 98542A and 98543A low-resolution bit-mapped displays, the com¬ 
puter dumps the image on the CRT using 1024 x 800 dots on the printer, giv¬ 
ing a large, coarse-grained representation. Each screen graphics DGL “paired” 
pixel is represented by a 2 x 2 square of dots on the printer. This is the same 
result as is produced by pressing the DUMP ALPHA or DUMP GRAPHICS 
keys. 

For the 98544A, 98545A, 98547A, 98548A, 98549A, 98550A, 98700A high-resolution 
bit-mapped displays, and the 362/382 internal bit-mapped displays, the image is dumped 
bit-for-bit; the image on the printer comes out with each screen pixel represented by one 
printer dot. 

Await vertical blanking. This escape function will not exit until the CRT is performing vertical 
blanking. 

The following example shows how to use this function when changing the color table to 
reduce flicker. 

0UTPUT_ESC ( 53 t Ot 0 » dummy» dummy » error )i 
SET_C0L0R_TABLE ( 0# r» St b )5 

The color table is not changed until the crt is blank (during a refresh cycle). 

Otherwise changing the color map in the middle of a scan would create a screen 
that was half the old color, and half the new color for one frame (1/60 sec). To the 
eye this would look like a flicker. 

For the 98542A and 98544A low-resolution bit-mapped displays, only the even-numbered 
frame-buffer pixels in a row are dumped. Graphics images are not degraded, however, 
because of the paired pixels which are used for graphics but not used for alpha. Alpha 
characters do not use pixel pairs but individual pixels. Thus, they lose internal detail when 
dumped with this operation selector, as half the pixel columns in the character cell are not 
printed. However, they are usually still readable. 

For the 98544A, 98545A, 98547A, 98548A, 98549A, 98550A, 98700A high-resolution 
bit-mapped displays, and the 362/382 internal bit-mapped displays, the image is dumped as 
with operation selector 52. 

For non-bit-mapped displays, operation selector 54 is ignored. 

Specify device limits. 

REAL Array [1] = Points (dots) per mm in X direction 
REAL Array [2] = Points (dots) per mm in Y direction 

Turn on or off the graphics display. 

INTEGER array [1] = 0 —» turn display off. 

INTEGER array [1] <> 0 turn display on. 

Turn on or off the alpha display. 

INTEGER array [1] = 0 —* turn display off. 

INTEGER array [1] <> 0 —» turn display on. 

Set special drawing modes. Using this escape function will redefine the meaning of 
the set color attribute. For details on how a given drawing mode affects a color see 
“Drawing Modes” in SET_COLOR. This drawing mode does not apply to device 
dependent polygons. Out of range values default to dominate drawing mode. 

INTEGER arrayfl] = 0—* Dominate drawing mode. 

= 1 —» Non-dominate drawing mode. 

= 2 —» Erase drawing mode. 

= 3 —» Complement drawing mode. 


1 This operation is not available for the Model 237, HP 98542, HP 98545, HP 98547, HP 98549, and HP 98700. 
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Operation 

Selector 

1053 


1054 


10050 


Function ___ 

Dump graphics (from the specified color planes) to the graphics printer (PRINTER:). Also dumps 
graphics on a Model 237 if it is the currently active display. 

INTEGER array [1] = Color plane selection code. 

BIT 0 = 1 —> Select plane 1. 

(Blue on HP 98627A) 

BIT 1 = 1 —» Select plane 2. 

(Green on HP 98627A) 

BIT 2 = 1-* Select plane 3. 

(Red on HP 98627A) 

BIT 3 = 1 —» Select plane 4. 

Clear selected graphics planes. 


INTEGER Array [1] = 0 - Clear all planes 

INTEGER Array [1] <> 0 - Color plane selection code. 

BIT 0 = 1 

Clear plane 0 

(Blue on HP 98627A) 

BIT 1 = 1 

Clear plane 1 

(Green on HP 98627A) 

BIT 2 = 1 

Clear plane 2 

(Red on HP 98627A) 

BIT 3 = 1 

Clear plane 3 


BIT 4 = 1 

Clear plane 4 


BIT 5 = 1 

Clear plane 5 


BIT 6 = 1 

Clear plane 6 


BIT 7 = 1 

Clear plane 7 



Set all color table locations for color raster graphics displays. This escape function 
allows the user to change all locations in the hardware color map with one procedure. 
The software maintained color table will be updated by this call. This escape function 
is the same as calling SET_COLOR_TABLE with indexes 0 - n. 


REAL Array [1] = Parml 

REAL Array [2] = Parm2 Index 0 

REAL Array [3] = Parm3 

REAL Array [4] = Parml 

REAL Array [5] = Parm2 Index 1 

REAL Array [6] = Parm3 


Model 

Planes 

Colors 

236C 

4 

0 . 

. 15 

98543A 

4 

0 . 

. 15 

98545A 

4 

0 . 

. 15 

98547A 

6 

0 . 

. 63 

98549A 

6 

0 . 

. 63 

98550A 

8 

0 .. 

. 225 

98700A 

8 

0 .. 

. 225 

362/382 

8 

0 .. 

. 255 


Parml, Parm2, and Parm3 are defined to be the same as used with SET_COLOR_ 
TABLE. 

The size of the INTEGER array must equal 0 and the size of the REAL array 
is three times the number of colors. 
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The following tables show which escape codes are supported on which Series 200/300 raster 


displays: 

Operation 

Selector 

216 

217 

220 

226 

236 


236 

Color 

237 

98627A 

52 

yes 

yes 

yes 

yes 

yes 


yes 


yes 

yes 

53 

no 

no 

no 

no 

no 


yes 


no 

no 

250 

yes 

yes 

yes 

yes 

yes 


yes 


yes 

yes 

1050 

yes 

yes 

yes 

yes 

yes 


yes 


no 

yes 

1051 

yes 

yes 

yes 

yes 

yes 


yes 


no 

no 

1052 

yes 

yes 

yes 

yes 

yes 


yes 


yes 

yes 

1053 

no 

no 

no 

no 

no 


yes 


yes 

yes 

1054 

yes 

no 

no 

yes 

yes 


yes 


no 

yes 

10050 

no 

no 

no 

no 

no 


yes 


no 

no 

Operation 











Selector 

98542A 

98543A 

98544A 

98545A 

98547A 98548A 98549A 

98550A 

98700A 

52 

yes 

yes 

yes 

yes 

yes 

yes 


yes 

yes 

yes 

53 

yes 

yes 

yes 

yes 

yes 

yes 


yes 

yes 

yes 

54 

yes 

yes 

yes 

yes 

yes 

yes 


yes 

yes 

yes 

250 

yes 

yes 

yes 

yes 

yes 

yes 


yes 

yes 

yes 

1050 

no 

no 

no 

no 

no 

no 


no 

no 

no 

1051 

no 

no 

no 

no 

no 

no 


no 

no 

no 

1052 

yes 

yes 

yes 

yes 

yes 

yes 


yes 

yes 

yes 

1053 

no 

no 

no 

no 

no 

no 


no 

no 

no 

1054 

yes 

yes 

yes 

yes 

yes 

yes 


yes 

yes 

yes 

10050 

no 

yes 

no 

yes 

yes 

no 


yes 

yes 

yes 


Operation 

Selector 

362/382 

52 

yes 

53 

yes 

54 

yes 

250 

yes 

1050 

no 

1051 

no 

1052 

yes 

1053 

no 

1054 

yes 

10050 

yes 
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HPGL Plotter Escape Operations 
Operation 

Selector I Function 


1052* 


Enable cutter. Provides means to control the Plotter paper cutters. Paper is cut after it is 
advanced. 


1052 


1053 

2050 


2051 


2052 


INTEGER array [1] = 0 Cutter is disabled. 

INTEGER array [1] <> 0 Cutter is enabled. 

Set automatic pen. This instruction provides a means for utilizing the smart pen options of 
the plotter. Initially, all automatic pen options are enabled. 

INTEGER array [1]: BIT 0 = 1 

Lift pen if it has been down for 60 seconds. 

BIT 1 = 1 

Put pen away if it has been motionless for 20 seconds. 

BIT 2 = 1 

Do not select a pen until a command which makes a mark. This causes the pen to remain 
in the turret for the longest possible time. 

Advance the paper either one half or a full page. 

INTEGER array [1] = 0 >> Advance page half 

INTEGER array [1] <> 0 >> Advance page full 

Select pen velocity. This instruction allows the user to modify the plotter’s pen speed. Pen 
speed may be set from 1 to the maximum for the given device. 

INTEGER array [1] = Pen speed (INTEGER from 1 to device max). 

INTEGER array [2] = Pen number (INTEGER from 1 to 8; other integers 
select all pens) 

Select pen force. The force may be set from 10 to 66 gram-weights. 

INTEGER array [1] = Pen force (INTEGER from 1 to 8). 

1: 10 gram-weights 
2: 18 gram-weights 
3: 26 gram-weights 
4: 34 gram-weights 
5: 42 gram-weights 
6: 50 gram-weights 
7: 58 gram-weights 
8: 66 gram-weights 

INTEGER array [2] = Pen number (INTEGER 1 to 8; other integers 
select all pens) 

Select pen acceleration. The acceleration may be set from 1 to 4 G’s. 


INTEGER array [1] = Pen acceleration (INTEGER from 1 to 4). 

INTEGER array [2] = Pen number (INTEGER 1 to 8; other integers select all pens) 


Operation * 


Selector 

9872 

7470 

7475 

7550 

7575A 

7576A 

7580 

7585 

7586 

7440A 7570A 7595A 7596 

1052 * 

S/T 

no 

no 

no 

no 

no 

no 

no 

no 

no 

no 

no 

no 

1052 

no 

no 

yes 

yes 

yes 

yes 

yes 

yes 

yes 

no 

yes 

yes 

yes 

1053 

S/T 

no 

no 

yes 

yes 

yes 

no 

no 

yes 

no 

no 

no 

yes 

2050 

yes 

yes 

yes 

yes 

yes 

yes 

yes 

yes 

yes 

yes 

yes 

yes 

yes 

2051 

no 

no 

yes 

yes 

no 

no 

yes 

yes 

yes 

no 

yes 

yes 

yes 

2052 

no 

no 

yes 

yes 

no 

no 

yes 

yes 

yes 

no 

yes 

yes 

yes 


* Note that some plotters may accept these opcodes, but perform no action with them (they are NOPs). This is done for compatibility 
purposes. 
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Operation * 


Selector 

9872 

7470 

7475 

7550 

7575A 

7576A 

7580 

1052 * 

S/T 

no 

no 

no 

no 

no 

no 

1052 

no 

no 

yes 

yes 

yes 

yes 

yes 

1053 

S/T 

no 

no 

yes 

yes 

yes 

no 

2050 

yes 

yes 

yes 

yes 

yes 

yes 

yes 

2051 

no 

no 

yes 

yes 

no 

no 

yes 

2052 

no 

no 

yes 

yes 

no 

no 

yes 

Operation* 

Selector 

7585 

7586 

7440A 7570A 7595A/B 7596A/B 7599A 

1052* 

no 

no 

no 

no 

no 

no 

no 

1052 

yes 

yes 

no 

yes 

yes 

yes 

yes 

1053 

no 

yes 

no 

no 

no 

yes 

yes 

2050 

yes 

yes 

yes 

yes 

yes 

yes 

yes 

2051 

yes 

yes 

no 

yes 

yes 

yes 

yes 

2052 

yes 

yes 

no 

yes 

yes 

yes 

yes 


* Note that some plotters may accept these opcodes, but perform no action with them (they are NOPs). This is done for compatibility 
purposes. 


The 7595B, 7596B and 7599A plotters are only supported in 7595A or 7596A emulation 
mode. 
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POLYGON 

IMPORT: dgLtypes 
dgLlib 
dgLpoly 


This procedure displays a polygon-set starting and ending at the specified point adhering to the 
specified polygon style exactly as specified (i.e., device-independent results). 

Syntax 



Item 

Description/Default 

Range 

Restrictions 

points 

Expression of TYPE INTEGER 

MININT thru MAXINT 

x array name 

Array of TYPE REAL. 

- 

y array name 

Array of TYPE REAL. 

- 

operation selector array 
name 

Array of TYPE Gshortint. Gshortint is a sub¬ 
range of INTEGER. 

-32 768 to 32 767 


Procedure Heading 

PROCEDURE POLYGON ( Npoint : INTEGER; 

A N Y U A R X u e c : G r e a 1 _ 1 i s t i 

ANYUAR Yuec : G re a 1_1is t 5 

ANY MAR Opcodes : Gshortirit_list)5 

Semantics 

Points is the number of vertices in the polygon set. 

The x and y coordinate arrays contain the world coordinate values for each vertex of the 
polygon-set. The vertices must be in order. The vertices for the first sub-polygon must be at the 
beginning of these arrays, followed by the vertices for the second sub-polygon, etc. So, the 
coordinate arrays must contain a total number of vertices that equals points. 

The operation selector array contains a series of integer operation selectors defining which 
vertices start new polygons, and defining which edges should be displayed. 
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Value 

0 

1 

2 


Meaning _ 

Don’t display the line for the edge extending to this vertex from the previous vertex. 
Display the line for the edge extending to this vertex from the previous vertex. 

This vertex is the first vertex of a sub-polygon. Succeeding vertices are part of a 
sub-polygon until a new start-of-polygon operation selector (2) is encountered. (Or the 
end of the arrays is encountered.) 


Note 

The first entry in the operation selector array must be 2, since it is the 
first vertex of a sub-polygon. 


POLYGON is used to output a polygon-set, specified in world coordinates, adhering exactly to 
the polygon style attributes that are currently specified. A polygon-set is a set of polygons (called 
“sub-polygons”) that are treated graphically as one polygon. This is accomplished by “stacking” 
the sub-polygons. The subpolygons in a polygon-set may intersect or overlap each other. 

The edge of a sub-polygon is defined as the line sequence that connects its vertices in the order 
specified. If the last vertex specified for a sub-polygon is not the same as the first, they are 
automatically connected. 

When a polygon-set is displayed, the primitive attributes for polygons and lines define its 
appearance. In particular, the interior of the polygon-set will be filled according to the attributes 
of polygon style, polygon interior color and polygon interior line-style. If the edges are to be 
displayed as specified in the polygon style, the edges will adhere to the current line attributes of 
color, line-style and line-width. A dot will disappear on an edged polygon if the edge is done with 
a complementing line. 

The filling of polygons also depends on how the sub-polygons “nest” within each other. An 
“even-odd” rule is used for determining which areas will be filled. Moving across the screen, 
count the edges of the polygon. Odd-numbered edges will turn the fill on and even-numbered 
edges will turn the fill off. The picture below will help clear up how the fills work. 



Polygon Filling 
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Refer to SET_PGN_TABLE, SET_PGN_STYLE, SET_PGN_COLOR, SET_PGN_LS for a more 
detailed description of how attributes affect polygons. 

As stated above, the values in the operation selector array define how the edges of the sub¬ 
polygons are displayed. The edge from the (I-l)th vertex to the Ith vertex will only be displayed if 
the Ith entry in the operation selector array equals 1. To display the edge from the last vertex to 
the first vertex of a sub-polygon, the first vertex must be explicitly respecified after all the other 
vertices of the sub-polygon, with an operation selector equal to 1. Otherwise the edge from the 
last vertex to the first will not be drawn. It will, however, automatically be connected for polygon 
filling. 

If it is within the capabilities of the device, filling of the sub-polygon will be done to the 
sub-polygon edges regardless of whether the edges are displayed. If an entry in the operation 
selector array does not equal 0, 1, or 2, it will be treated as if it were equal to 0 and the edge will 
not be drawn. 

When POLYGON is used, the current position is updated to the end of the last sub-polygon 
specified in the polygon-set. The end of the last sub-polygon is defined to be the first (implicit last) 
vertex of the subpolygon. So, if there is only one vertex in a polygon-set this call degenerates to 
an update of the current position to the first coordinate set in the x and y point arrays (x 
coordinate array[l], y coordinate array[l]). 

It is the application program’s responsibility to ensure that the arrays are all dimensioned to at 
least the number of elements specified by points and that at least that many values are contained 
in each array. 

Polygons are defined to be closed surfaces. When a sub-polygon extends beyond a clipping edge 
the closed nature of the sub-polygon is destroyed. As with other primitives, unpredictable results 
may occur if the sub-polygon extends beyond the clipping window. 

Error Conditions 

The graphics system must be initialized, a graphics display must be enabled, all parameters must 
be within specified limits and the number of points specified must be greater than 0 or the call will 
be ignored, an ESCAPE (— 27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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POLYG ON_DE V_DEP 


IMPORT: dgLtypes 
dgLlib 
dgLpoly 


This procedure displays a polygon-set starting and ending at the specified point adhering to the 
specified polygon style in a device-dependent fashion. 


Syntax 



Item 

Description/Default 

Range 

Restrictions 

points 

Expression of TYPE INTEGER 

MININT thru MAXINT 

x array name 

Array of TYPE REAL. 

- 

y array name 

Array of TYPE REAL. 


operation selector array 
name 

Array of TYPE Gshortint. Gshortint is a sub¬ 
range of INTEGER. 

32 768 to 32 767 


Procedure Heading 

PROCEDURE POLYGON_DEU_DEP ( 

ANYUAR 
ANYUAR 
ANYUAR 


N p o i n t 
X u e c 
Y u e c 
Opcodes 


INTEGER 5 
Greal-list 5 
Greal-list i 
Gshortint-list) 5 


Semantics 

Points is the number of vertices in the polygon set. 


The x and y coordinate arrays contain the world coordinate values for each vertex of the 
polygon-set. The vertices must be in order. The vertices for the first sub-polygon must be at the 
beginning of these arrays, followed by the vertices for the second sub-polygon, etc. So, the 
coordinate arrays must contain a total number of vertices that equals points. 

The operation selector array contains a series of integer operation selectors defining which 
vertices start new polygons, and defining which edges should be displayed. 
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Value 

0 


Meaning _ 

Don’t display the line for the edge extending, to this vertex from the previous vertex. 


1 

2 


Display the line for the edge extending to this vertex from the previous vertex. 

This vertex is the first vertex of a sub-polygon. Succeeding vertices are part of a 
sub-polygon until a new start-of-polygon operation selector (2) is encountered. (Or the 
end of the arrays is encountered.) 


Note 

The first entry in the operation selector array must be 2, since it is the 
first vertex of a sub-polygon. 


POLYGON_DEV_DEP is used to output a polygon-set, specified in world coordinates, adhering 
(within the capabilities of the device) to the polygon style attributes that are currently specified. A 
polygon-set is a set of polygons (called “sub-polygons”) that are treated graphically as one poly¬ 
gon. The subpolygons in a polygon-set may intersect or overlap each other. 

The edge of a sub-polygon is defined as the line sequence that connects its vertices in the order 
specified. If the last vertex specified for a sub-polygon is not the same as the first, they are 
automatically connected. 

When a polygon-set is displayed, the primitive attributes for polygons and lines define its 
appearance. In particular, the interior of the polygon-set will be filled according to the attributes 
of polygon style, polygon interior color and polygon interior line-style. If the edges are to be 
displayed as specified in the polygon style, the edges will adhere to the current line attributes of 
color, line-style and line-width. 

The filling of polygons also depends on how the sub-polygons “nest” within each other. An 
“even-odd” rule is used for determining which areas will be filled. Moving across the screen, 
count the edges of the polygon. Odd-numbered edges will turn the fill on and even-numbered 
edges will turn the fill off. The picture below will help clear up how the fills work. 



Polygon Filling 
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Refer to SET_PGN_TABLE, SET_PGN_STYLE, SET_PGN_COLOR, SET_PGN_LS for a more 
detailed description of how attributes affect polygons. 

As stated above, the values in the operation selector array define how the edges of the sub¬ 
polygons are displayed. The edge from the (1-1 )th vertex to the Ith vertex will only be displayed if 
the Ith entry in the operation selector array equals 1. To display the edge from the last vertex to 
the first vertex of a sub-polygon, the first vertex must be explicitly respecified after all the other 
vertices of the sub-polygon, with an operation selector equal to 1. Otherwise the edge from the 
last vertex to the first will not be drawn. It will, however, automatically be connected for polygon 
filling. 

If it is within the capabilities of the device, filling of the sub-polygon will be done to the 
sub-polygon edges regardless of whether the edges are displayed. If an entry in the operation 
selector array does not equal 0, 1, or 2, it will be treated as if it were equal to 0, i.e., the edge will 
not be drawn. 

When POLYGON_DEV_DEP is used, the current position is updated to the end of the last 
sub-polygon specified in the polygon-set. The end of the last sub-polygon is defined to be the first 
(implicit last) vertex of the subpolygon. So, if there is only one vertex in a polygon-set this call 
degenerates to an update of the current position to the first coordinate set in the x and y point 
arrays (x coordinate array[l], y coordinate array[l]). 

It is the application program’s responsibility to ensure that the arrays are all dimensioned to at 
least the number of elements specified by points and that at least that many values are contained 
in each array. 

Device capabilities vary widely. Not all devices are able to draw polygon edges as requested. If a 
device is not able to draw polygon edges as requested, they will be simulated in software. The 
simulation will always adhere to the edge value in SET_PGN_STYLE and the operation selector 
in POLYGON_DEV_DEP, but the line-style and color of the edge will depend on the capability of 
the device to produce lines with those attributes. 

Polygon fill capabilities can vary widely between devices. A device may have no filling capabilities 
at all, may be able to perform only solid fill, or may be able to fill polygons with different fill 
densities and at different fill line orientations. POLYGON_DEV_DEP tries to match the device 
capabilities to the request. If the device cannot fill the request at all, then no simulation is done 
and the polygon will not be filled. For HPGL plotters, the fill is simulated. For raster devices, if the 
density is greater than 0.5, a solid fill is used, otherwise, the fill is simulated. 

In the case where the polygon style specifies non-display of edged, this would result in no visible 
output although visible output had been specified. To provide some visible output in this case, 
POLYGON_DEV_DEP will outline the polygon using the color and line-style specified for the fill 
lines. However, only those edge segments specified as displayable by the operation selector array 
will be drawn. Therefore, if all edge segments are specified as non-displayed, there will still be no 
visible output. 

Regardless of the capabilities of the device, POLYGON_DEV_DEP sets the starting position to 
the first vertex of the last member polygon specified in the call. If there is only one polygon 
specified, the starting position will therefore be set to the first vertex specified. 
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Polygons are defined to be closed surfaces. When a sub-polygon extends beyond a clipping edge 
the closed nature of the sub-polygon is destroyed. As with other primitives, unpredictable results 
may occur if the sub-polygon extends beyond the clipping window. 

Error Conditions 

The graphics system must be initialized, a graphics display must be enabled, all parameters must 
be within specified limits and the number of points (Points) must be greater than 0 or the call will 
be ignored, an ESCAPE (- 27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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POLYLINE 

IMPORT: dglJib 


This procedure draws a connected line sequence starting at the specified point. 


Syntax 


—^ (polyline) —*■ t 


MM 


Item 

Description/Default 

Range 

Restrictions 

points 

Expression of TYPE INTEGER 

MININT thru MAXINT 

x array name 

Array of TYPE REAL. 

- 

y array name 

Array of TYPE REAL. 

- 


Procedure Heading 

PROCEDURE POLYLINE ( Npts : INTEGER? 

ANYVAR Xvec» Yuec : Greal_list ) 

Semantics 

Points is the number of vertices in the polygon set. 

The x and y coordinate arrays contain the world coordinate values for each vertex of the 
polyline-set. The vertices must be in order. The vertices for the first sub-polyline must be at the 
beginning of these arrays, followed by the vertices for the second sub-polyline, etc. So, the 
coordinate arrays must contain a total number of vertices that equals points. 

The procedure POLYLINE provides the capability to draw a series of connected lines starting at 
the specified point. A complete object can be drawn by making one call to this procedure. This 
call first sets the starting position to be the first elements in the x and y coordinate arrays. The line 
sequence begins at this point and is drawn to the second element in each array, then to the third 
and continues until points-1 lines are drawn. 

This procedure is equivalent to the following sequence of calls: 

MOVE (X.coordinate.arrayCl] »Y.coordinate.array[lll) 5 
LINE <X_coordinate_arra'/C2] »Y.coordinate.array[2]) ? 

LINE (X.coordinate.array£3II »Y.coordinate.arrayE3]) 5 


LINE (X.coordinate.array[Points] t Y _ c o o r dina t e.a r r a yC P oint s 3 ) 5 

The starting position is set to (X_coordinate_array[Points], Y_coordinate_array[Points]) at the 
completion of this call. 
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Specifying only one element, or Points equal to 1, causes a move to be made to the world 
coordinate point specified by the first entries in the two coordinate arrays. 

It is the application program’s responsibility to ensure that the arrays are all dimensioned to at 
least the number of elements specified by points and that at least that many values are contained 
in each array. 

Depending on the nature of the current line-style nothing may appear on the graphics display. 
See SET_LINE_STYLE for a complete description of how line-style effects a particular point or 
vector. 

The primitive attributes of color, line-style, and line-width apply to polylines. 

Error Conditions 

The graphics system must be initialized, a graphics display must be enabled, all parameters must 
be within specified limits and the number of points (points) must be greater than 0 or the call will 
be ignored, an ESCAPE ( - 27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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SAMPLE-LOCATOR 

IMPORT: dglJib 


This procedure samples the current locator device 

Syntax 


SAMPLE J-OCATOR ) —< »{T)—»» 


echo 

selector 


H3K 


coord inate 
name 


coordinate 

name 


Item 

Description/Default 

Range 

Restrictions 

echo selector 

Expression of TYPE INTEGER 

MININT to MAXINT 

x coordinate name 

Variable of TYPE REAL 

- 

y coordinate name 

Variable of TYPE REAL 

- 


Procedure Heading 

PROCEDURE SAMPLE_LQCATOR ( Echo : INTEGER? 

UAR Wx » Wv : REAL ) ? 

Semantics 

The echo selector determines the level of input echoing. Possible values are: 

0 - No echo. 

3=1 - Echo on the locator device. 

The x and y coordinates are the values of the coordinates, expressed in world coordinate units, 
returned from the enabled locator device. 

SAMPLE_LOCATOR returns the current world coordinate value of the locator without waiting 
for any user intervention. Typically, the locator is sampled in applications involving the con¬ 
tinuous input of data points that are very close together. 

If the point sampled is outside of the current logical locator limits, the transformed point will still 
be returned . 

The number of echoes supported by a locator device and the correlation between the echo value 
and the type of echoing performed is device dependent. Most locator devices support at least one 
form of echoing. Possible echoes are beeping, displaying the point sampled, etc. See the locator 
descriptions below to find the locators supported by the various devices. If the echo value is larger 
than the number of echoes supported by the enabled locator device, then echo 1 will be used. 

Locator echoing can only be performed on the locator device. The locator echo position is not 
used in conjunction with any echoes performed while sampling a locator. 
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SAMPLE-LOCATOR implicitly makes the picture current before sampling the locator. 

Relative Locators (Knob or Mouse) - LOCATOR_INlT Selector 2 

The keyboard beeper is sounded when the locator is sampled if an echo is selected (echo 
selector^ 1). The sample locator function returns the last AWAIT-LOCATOR result or 0.0, 0.0 if 
AWAIT-LOCATOR has not been invoked since LOCATOR-INIT. 

Absolute Locators (HPGL Plotter or Graphics Tablet) 

The SAMPLE_LOCATOR function returns the current locator position, without waiting for an 
operator response (pen position on plotters). On a 9111A Graphics Tablet, the beeper is 
sounded when the stylus is depressed. For echo selectors greater than or equal to 9, the same 
echo as echo selector 1 is used. 

Error Conditions 

The graphics system must be initialized and a locator device enabled or this call will be ignored, an 
ESCAPE (-27) will be generated, and GRAPHICSERROR will return a non-zero value. 

HP-H1L Absolute Locator Semantics 

The value of ECHO defines an echoing mechanism for feedback to the user. Echo has the 
same meaning as when applied to a HP 9111A (HP-IB) Graphics Tablet. 

Wx and Wy are the world coordinate real values returned by the locator when 

SAMPLE_LOCATOR is called. SAMPLE_LOCATOR does not wait for a button to be pressed 
before returning to the calling program; it merely gets the XY coordinate pair as fast as it can, 
and returns. 

HP-HIL Relative Locator Semantics - LOC AT OR_INIT Selector 202 

The value of ECHO defines an echoing mechanism for feedback to the user. Echo has the 
same meaning as when applied to an HP-HIL absolute locator. 

Wx and Wy are the world coordinate real values returned by the locator when 

SAMPLE.LOCATOR is called. SAMPLE_LOCATOR does not wait for a button to be pressed 
before returning to the calling program; it merely gets the XY coordinate pair as fast as it can. 

Unlike the situation encountered when using LOCATORJNIT with a selector of 2, DGL returns 
a useful value for SAMPLE_LOCATOR in this case. This is because DGL is “looking at” the 
locator continuously from execution of LOCATORJNIT, and “sees” motions of the locator 
device any time after that. 
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SET-ASPECT 


IMPORT: dgLlib 


This procedure redefines the aspect ratio of the virtual coordinate system. 


Syntax 


-c SET_ASPECT D-CH 


HD— 


Item 

Description/Default 

Range 

Restrictions 

x size 

y size 

Expression of TYPE REAL 

Expression of TYPE REAL 

>0 

>0 


Procedure Heading 

PROCEDURE SET-ASPECT ( X_size» Y.size : REAL )5 

Semantics 

The x size is the width of the virtual coordinate system in dimensionless units. The size must be 
greater than zero. 

The y size is the height of the virtual coordinate system in dimensionless units. The size must be 
greater than zero. 

SET-ASPECT sets the aspect ratio of the virtual coordinate system, and hence the view surface, 
to be y size divided by x size. A ratio of 1 defines a square virtual coordinate system, a ratio greater 
than 1 specifies it to be higher than it is wide; and a ratio less than 1 specifies it to be wider than it is 
high. Since x size and y size are used to form a ratio, they may be expressed in any units as long as 
they are the same units. 

The range of coordinates for the virtual coordinate system is calculated based on the value of the 
aspect ratio. The coordinates of the longer axis are always set to range from 0.0 to 1.0 and those 
of the shorter axis from 0 to a value that achieves the specified aspect ratio. SET-ASPECT 
defines the limits of the virtual coordinate system. 


ASPECT RATIO (AR) 

X LIMITS 

Y LIMITS 

AR < 1 

0.0, 1.0 

0.0, 1.0* AR 

AR = 1 

0.0, 1.0 

0.0, 1.0 

AR > 1 

0.0, 1.0/AR 

0.0, 1.0 
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When a call to SET-ASPECT is made, the graphics system sets the viewport equal to the limits of 
the virtual coordinate system. This routine can therefore be used to access the entire logical 
display surface. A program could display an image on the entire Model 226 graphics display, 
which has an aspect ratio of 399/299, in the following manner: 

SET-ASPECT ( 399, 299 ); 

To set the aspect ratio to the entire display in a device independent manor, INQ_WS may be used 
as follows: 

PROCEDURE Set_max-aspect? 

CONST Get_aspect=2545 

UAR Dummy : INTEGER ? 

Error : INTEGER? 

Ratio-list: ARRAY Cl* * 2 II OF REAL? 

BEGIN ■( PROCEDURE Se t.max.as pe c t > 

INO-WS (Get-aspect#0#0#2>Dummy»Dummy» Ratio-list# Error)? 

IF Error = 0 THEN 

SET-ASPECT(1.0»Ratio_list[2]>? 

END? -C PROCEDURE Se t_max_as pe c t > 

The initial value of the aspect ratio is 1, setting the virtual coordinate system to be a square. This 
square is mapped to the largest inscribed square on any display surface, so that the viewable area 
is maximized. As a result, the initial virtual coordinate system limits range from 0.0 to 1.0 in both 
the X and Y directions. A program can access the largest inscribed rectangle on any display 
surface by modifying the value of the aspect ratio. The exact placement of the rectangle on the 
display surface is device dependent, but it is centered on CRT’s and justified in the lower left hand 
corner of plotters. 

The starting position is not altered by this call. Since this call redefines the viewing transformation, 
the starting position may no longer represent the last world coordinate position. A call to MOVE 
or INT_MOVE should therefore be made after this call to update the starting position. 

If the logical locator is associated with the same physical device as the graphics display, then a call 
to SET-ASPECT will set the logical locator limits equal to the new limits of the virtual coordinate 
system. 

Since the window is not affected by the SET-ASPECT procedure, distortion may result in the 
window to viewport mapping if the window does not have the same aspect ratio as the virtual 
coordinate system (see SET-WINDOW). 

The locator echo position is set to the default value by this procedure. 

Error Conditions 

The graphics system must be initialized and both X and Y size must be greater than zero or this call 
will be ignored, an ESCAPE (-27) will be generated, and GRAPHICSERROR will return a 
non-zero value. 
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SET_CHAR_SIZE 

IMPORT: dgIJib 


This procedure sets the character size attribute for graphical text. 

Syntax 


► ^SET-CHAR-SIZ^ 1 width IhOHI height 


Item 

Description/Default 

Range 

Restrictions 

width 

height 

Expression of TYPE REAL 

Expression of TYPE REAL 

— 


Procedure Heading 

PROCEDURE SET_CHAR_SIZE ( Width, Height : REAL >5 

Semantics 

The width is the requested graphics character cell width in world coordinate units, (width <> 

0 . 0 ) 

The height is the requested graphics character cell height in world coordinate units, (height <> 

0 . 0 ) 

SET_CHAR_SIZE sets the character size for subsequently output graphics text. The absolute 
value of width and height are used to specify the world coordinate size of a character cell. 
Therefore, the actual physical size of a character output is determined by applying the current 
viewing transformations to the world coordinate units specification. 

The default character size (set by GRAPHICS-INIT and DISPLAY_1NIT) is dependent upon the 
physical device associated with the graphical display device. The size is determined as follows: 

• Height : = .05 x (height of the world coordinate system) 

• Width : = .035 x (width of the world coordinate system) 

If a change is made to the viewing transformation (by SET_WINDOW, SET_VIEWPORT, 
SET_DISPLAY_LIM, or SET_ASPECT), the value of the character size attribute will not be 
changed, but the actual size of the characters generated may be modified. 

Error Conditions 

The graphics system must be initialized, a display must be enabled, and width and height must 
both be non-zero or this call will be ignored, an ESCAPE (-27) will be generated, and 
GRAPHICSERROR will return a non-zero value. 
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SET__COLOR 

IMPORT: dgLlib 


This procedure sets the color attribute for output primitives except for polygon interior fill. 


Syntax 


SETJCOLOR XIM 


Item 

Description/Default 

Range 

Restrictions 

color selector 

Expression of TYPE INTEGER 

- 


Procedure Heading 

PROCEDURE SET-COLOR ( Color : INTEGER )5 

Semantics 

SET_COLOR sets the color attribute for the following primitives: 

Lines 
Markers 
Polylines 
Polygon Edges 
Text 

At device initialization a default color table is created by the graphics system. The size and 
contents of the table are device dependent. At least one entry exists for all devices. A call to 
INQ_WS with OPCODE equal to 1053 will return the number of colors available on a given 
graphics device. Some devices allow the color table to be modified with SET_TABLE. 

The color selector is an index into the color table. The contents of the color table are then used to 
specify the color when primitives are drawn. On some devices (HPGL plotters), the color selector 
maps directly to a pen number for the device. On the color map machines, the entries in the 
color table can be modified with SET_COLOR_TABLE. 

The default value of the color attribute is 1. If the value of the color selector is not supported on 
the graphics display, the color attribute will be set to 1. 

A color selector of 0 has special effects depending on the graphics display used. For raster 
devices, a color selector of 0 means to draw in the background color. For most plotters, it puts the 
pen away. 
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If the device is not capable of reproducing a color in the color table, the closest color which the 
device is capable of reproducing is used instead. On some devices, this may depend on the 
primitive being displayed. For example, the HP98627A color output interface card is capable of a 
large selection of polygon fill colors, but only 8 line colors. Thus, the fill color could match the 
selected color much more closely than the line color used to outline the polygon. 

Default Raster Color Map 

The following table shows the default (initial) color table for the black and white displays 
(computer models 216, 220, 226, 236, 237, HP98542A, HP98544A, and HP98548A): 


Index # 

Hue 

Saturation 

Luminosity 

0 

0 

0 

0 

1 

0 

0 

1.0000 

2 

0 

0 

0.9375 

3 

0 

0 

0.8750 

4 

0 

0 

0.8125 

5 

0 

0 

0.7500 

6 

0 

0 

0.6875 

7 

0 

0 

0.6250 

8 

0 

0 

0.5625 

9 

0 

0 

0.5000 

10 

0 

0 

0.4375 

11 

0 

0 

0.3750 

12 

0 

0 

0.3125 

13 

0 

0 

0.2500 

14 

0 

0 

0.1875 

15 

0 

0 

0.1250 

16 

0 

0 

0.0625 


Colors 17 though 31 are set to white. 

The following table shows the default (initial) color table for the color displays (computer 
model 236C, HP 98627, HP 98543A, HP 98545A, HP 98547A, HP 98549A, HP 98550A, HP 
98700A, and 362/382 internal bitmapped displays). 


Index # 

Color name 

Red 

Green 

Blue 

0 

Black 

0.000000 

0.000000 

0.000000 

1 

White 

1.000000 

1.000000 

1.000000 

2 

Red 

1.000000 

0.000000 

0.000000 

3 

Yellow 

1.000000 

1.000000 

0.000000 

4 

Green 

0.000000 

1.000000 

0.000000 

5 

Cyan 

0.000000 

1.000000 

1.000000 

6 

Blue 

0.000000 

0.000000 

1.000000 

7 

Magenta 

1.000000 

0.000000 

1.000000 

8 

Black 

0.000000 

0.000000 

0.000000 

9 

Olive green 

0.800000 

0.733333 

0.200000 

10 

Aqua 

0.200000 

0.400000 

0.466667 

11 

Royal blue 

0.533333 

0.400000 

0.666667 

12 

Violet 

0.800000 

0.266667 

0.400000 

13 

Brick red 

1.000000 

0.400000 

0.200000 

14 

Burnt orange 

1.000000 

0.466667 

0.000000 

15 

Grey brown 

0.866667 

0.533333 

0.266667 


Colors 9 though 15 are a graphic designers idea of colors for business graphics. Color table 
entries not shown above are set to white. 
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Raster Drawing Modes 

For raster devices (e.g. Model 236 display) the effect of the color selectors depends on the 
current drawing mode (drawing mode is set using the OUTPUT_ESC function). The color 
selectors and their effects are listed below: 


Mode 

Color Selector = 0 

Color Selector >= 1 

DOMINATE 

(Default mode) 

Background 
(erase, set 
bits to 0) 

Draw 

(set bits to 1, 
overwrite current pattern) 

NON-DOMINATE 

Background 
(erase, set 
bits to 0) 

Draw 

(set bits to 1 
inclusive OR with 
current pattern) 

ERASE 

Background 
(erase, set 
bits to 0) 

Background 
(erase, set 
bits to 0) 

COMPLEMENT 

Background 
(erase, set 
bits to 0) 

Complement 
(invert bits in 
selected planes) 


Plotters 

A Color Selector of 0 selects no pens (the current pen is put away). The supported range of 
Color Selectors for each supported plotter is: 

■ 9872A - 0 through 4 

■ 9872B - 0 through 4 

■ 9872C/S/T - 0 through 8 

■ 7550A&B/7570A/7575A/7576A/7580A/7585A/7586A/7595A&B/7596A&B/ 

7599A- 0 through 8 

■ 7470A - 0 through 2 

■ 7475A - 0 through 6 


Error Conditions 

The graphics system must be initialized and a display must be enabled. Otherwise, this call 
will be ignored, an ESCAPE (-27) will be generated, and GRAPH1CSERR0R will return a 
non-zero value. 
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SET_COLOR_MODEL 

IMPORT: dgUib 


This procedure chooses the color model for interpreting parameters in the color table. 

Syntax 


—» (set_color_hodel) — »*(T)— 


Item 

Description/Default 

Range 

Restrictions 

Recommended 

Range 

model selector 

Expression of TYPE INTEGER 

MININT thru 
MAXINT 

1 or 2 


Procedure Heading 

PROCEDURE SET-COLOR-MQDEL (MODEL:integer)5 

Semantics 

The model selector determines the color model which will be used to interpret the values passed 
to the color table with SET_COLOR_TABLE or read from it with INQ_COLOR_TABLE. 

Value Meaning _ 

1 RGB (Red-Green-Blue) color cube. 

2 HSL (Hue-Saturation-Luminosity) color cylinder. 

The RGB physical model is a color cube with the primary additive colors (red, green, and blue) as 
its axes. With this model, a call to SET_COLOR_TABLE specifies a point within the color cube 
that has a red intensity value (X-coordinate), a green intensity value ( Y-coordinate) and a blue 
intensity value (Z-coordinate). Each value ranges from zero (no intensity) to one. 

Effects of RGB color parameters 


Parm 1 (RED) 

Parm 2 (GREEN) 

Parm 3 (BLUE) 

Resultant color 

1.0 

1.0 

1.0 

White 

1.0 

0.0 

0.0 

Red 

1.0 

1.0 

0.0 

Yellow 

0.0 

1.0 

0.0 

Green 

0.0 

1.0 

1.0 

Cyan 

0.0 

0.0 

1.0 

Blue 

1.0 

0.0 

1.0 

Magenta 

0.0 

0.0 

0.0 

Black 
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The HSL perceptual model is a color cylinder in which: 

• The angle about the axis of the cylinder, in fractions of a circle is the hue (red is at 0, green is 
at 1/3 and blue is at 2/3). 

• The radius is the saturation. Along the center axis of the cylinder, (saturation equal zero) the 
colors range from white through grey to black. Along the outside of the cylinder (saturation 
equal one) the colors are saturated with no apparent whiteness. 

• The height along the center axis is the luminosity (the intensity or brightness per unit area). 
Black is at the bottom of the cylinder (luminosity equal zero) and the brightest colors are at 
the top of the cylinder (luminosity equal one) with white at the center top. 

Hue (angle), saturation (radius), and luminosity (height) all range from zero to one. Using this 
model, a call to SET_COLOR_TABLE specifies a point within the color cylinder that has a hue 
value, a saturation value, and a luminosity value. 

Effects of HSL color parameters 


Parm 1 (Hue) 

Parm 2 (Sat) 

Parm 3 (Lum) 

Resultant color 

Don’t Care 

0.0 

1.0 

White 

0.0 or 1 

1.0 

1.0 

Red 

1/6 

1.0 

1.0 

Yellow 

2/6 

1.0 

1.0 

Green 

3/6 

1.0 

1.0 

Cyan 

4/6 

1.0 

1.0 

Blue 

5/6 

1.0 

1.0 

Magenta 

Don’t Care 

Don’t Care 

0.0 

Black 


When a call to SET_COLOR_MODEL switches color models, parameter values in subsequent 
calls to SET_COLOR_TABLE then refer to the new model. Switching models does not affect 
color definitions that were previously made using another model. Note that when the value of a 
color table entry is inquired (INQ_COLOR_TABLE), it is returned in the current model, which 
may not be the model in which it was originally specified. 

Not all color specifications can be displayed on every graphics device, since the devices which the 
graphics library supports differ in their capabilities. If color specification is not available on a 
device, the graphics system will request the closest available color. 

Error Conditions 

The graphics system must be initialized and the color selector must evaluate to 0 or 1 or this call 
will be ignored, an ESCAPE (-27) will be generated, and GRAPHICSERROR will return a 
non-zero value. 
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SET_COLOR_TABLE 

IMPORT: dglJib 


This procedure redefines the color description of the specified entry in the color table. This color 
definition is used when the color index is selected via SET_COLOR. 


Syntax 



Item 

Description/Default 

Range 

Restrictions 

Recommended 

Range 

entry selector 

Expression of TYPE INTEGER 

MININT to 
MAXINT 

device 

dependent (see 
below) 

first parameter 

Expression of TYPE REAL 

0 thru 1 

- 

second parameter 

Expression of TYPE REAL 

0 thru 1 

- 

third parameter 

Expression of TYPE REAL 

0 thru 1 

- 


Procedure Heading 

PROCEDURE SET_COLOR_TABLE ( Index 

Co 1 pi 
Col p 2 
Col r3 


INTEGER 5 
REAL 5 
REAL 5 

REAL ) 5 


Semantics 

SET_COLOR_TABLE is ignored by some devices (such as pen plotters) which do not allow their 
color table to be changed. The procedure INQ_WS (opcode 1073) tells whether the color table 
can be changed. 

The entry selector specified the location in the color capability table that is to be redefined. 
For raster displays in Series 200/300 computers, and HP 98542A, HP 98543A, HP 98544A, 

HP 98545A, HP 98548A, and HP 98700A (4-plane) displays, 32 entries are available. For HP 
98547A and HP 98549A displays, 80 entries are available. For HP 98700A 8-plane displays, 
HP 98550A displays, and 362/382 internal bit-mapped displays, 272 entries are available. 

The first parameter represents red intensity if the RGB model has been selected with the SET 
COLOR statement, or hue if the HSL model has been selected. 

The second parameter represents green intensity if the RGB model has been selected with the 
SET COLOR statement, or saturation if the HSL model has been selected. 

The third parameter represents blue intensity if the RGB model has been selected, or luminosity 
if the HSL model has been selected. 
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A more detailed description of the color models and the meaning of their parameters can be 
found under the procedure definition of SET_COLOR_MODEL. 

The effect of redefinition of the color table on previously output primitives is device dependent. 
On most devices, changing the color table will only affect future primitives. However, on 
the Model 236C, HP 98543A., HP 98545A, HP 98547A, HP 98549A, HP 98550A, and 
HP 98700A, changing a color table entry with a color selector not in the last 16 entries will 
immediately change the color of primitives previously drawn with that entry. The procedure 
INQ_WS (opcode 1071) tells whether retroactive color change is supported. 

Monochromatic Displays 

Changing an entry in the table will not affect the current display. However, future changes to 
the display will use the new contents of the table. Device-dependent polygons use the color 
table entry when performing dithering. 

The color that lines are drawn with (black or white) is determined from the perceived intensity of 
the color table entry. This is calculated as follows: 

if (red * 0.3 + green * 0.59 + blue * 0.11) > 0.1 
then 

color : = white 
else 

color: = black; 

The HP 98627A Display 

Changing an entry in the table will not affect the current display; however, future changes to the 
display will use the new contents of the table. Device dependent polygons use the color table 
entry when performing dithering. 

The color that lines are drawn with (one of the 8 non-dithered colors) is determined from the 
closest HSL value to the requested value. 

Model 236C, HP 98543A, HP 98545A, 4-Plane HP 98700A 

The first 16 locations (0..15) of the color table map directly to the hardware color map. 
Changing one of these color table locations will immediately change the display (assuming the 
color has been used). 

The next 16 locations (16..31) will not affect the current display; however, future changes to 
the display will use the new contents of the color table. 

Device-dependent polygons drawn with color table locations 0..15 will be drawn in a solid 
color without using dithering. When drawn with color table location above 15 dithering will be 
used. 

HP 98547A and HP 98549A 

The first 64 locations (0.. .63) of the color table map directly to the hardware color map. 
Changing one of these color table locations will immediately change the display (assuming the 
color has been used). 

The next 16 locations (64.. .79) will not affect the current display. However, future changes to 
the display will use the new contents of the color table. 


98615-9003 7, rev: 5/88 
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Device-dependent polygons drawn with color table locations 0.. .63 will be drawn in a solid 
color without using dithering. When drawn with color table locations above 63, dithering will 
be used. 

8-Plane HP 98700A, HP 98550A and 362/382 Internal Bitmapped Displays 
The first 256 locations (0.. .255) of the color table map directly to the hardware color map. 
Changing one of these color table locations will immediately change the display (assuming the 
color has been used). 

The next 16 locations (256.. .271) will not affect the current display. However, future changes 
to the display will use the new contents of the color table. 

Device dependent polygons drawn with color table locations 0.. .255 will be drawn in a solid 
color without using dithering. When drawn with color table locations above 255, dithering will 
be used. 


Note 

Since dithering on color mapped displays use the current color map values 
(i.e., first area of color table) changing the first color table locations will 
effect the dithering pattern used. This leads to two major effects. First, 
changing the first locations after a polygon was generated using dithering 
will change the dither pattern such that its average color no longer matches 
the color that was generated with. Second, since the dither pattern is 
based on the first colors, the first colors can be set to produce a dither 
pattern with minimum color changes between pixels within the pattern. 
The following example produces a continuous shaded polygon across the 
crt: 

$RANGE 0FF$ 

PROGRAM T5 

IMPORT d 3 1 _ t y p e s > ddl_lib» ddl-Polvi 

VAR I : INTEGER? 

Xuec.YMeo : ARRAY Cl.. 21 OF REAL 5 

0 u e c : ARRAY Cl..Z1 OF Gshortint! 

c : real; 

BEGIN 

GRAPHICS-INIT 5 
DISPLAY-INIT(3,0»i > i 
SET-ASPECT(51 1 ,389) 5 
SET_WIND0W(0 ,51 1 ,0 ,389) 5 

FOR I := 0 to 15 DO 

SET_C0L0R_TABLE(I ,1/15,1/15,1/15) ; t set up color map > 

SET_PGN_C0L0R ( 18)5 

SET_PGN_STYLE (16)5 

Y u e c C1] := 100 5 Y v e c C 2 1 := 150? 0 ve c C13 := 2 ? 0 u e c C 2 ] : = 05 

FOR I := 0 to 511 DO 

BEGIN 

X u e c C 1 ] : = I ; X u e c C 2 3 : = I ; 

C : 1-1/5115 

SET_C0L0R_TABLE(16 ,0 ,C ,C) ; < set polygon color > 

P 0 L Y G 0 N _ D E V _ D E P(2 ,Xuec , Y u e c ,0uec) ? 

END ; 

END, 
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The color that lines are drawn with (one of the non-dithered colors) is determined from the 
closest HSL value to the requested value. 

Dithered Polygon Fills 

All the raster displays use a technique called dithering for filling device dependent polygons. The 
polygon is divided into 4 pixel by 4 pixel ’dither cells’. The colors that are placed in each pixel 
location inside the dither cells average to the current polygon color. The eye will average the 
pixels, and see the intended color. 

The 98627A has 3 memory planes thus, providing 8 non-dithered colors (white, red, green, blue, 
cyan, magenta, and black). Using dithering 4913 polygon colors may be generated. To obtain a 
polygon color of half-tone yellow (R = 0.5 G = 0.5 B = 0.0) the dither cell would contain 8 black 
pixels and 8 yellow pixels. 

On black and white displays, the largest r,g,b value of the current_polygon color is used to 
determine the dither pattern. 

On the color mapped displays, the current values of the color map are used to determine the 
dither cell pixel colors. This leads to a very very large number of colors that these can produce 
when performing device dependent polygon fill. 

The Background Color 

Color index 0 represents the background color. The ability to redefine this index is device¬ 
dependent. Many devices do not allow the redefinition of their background color. Whether a 
display device has the ability to redefine the background color can be inquired via a call to 
INQ_WS with opcode = 1072. All raster displays in the Series 200/300 computers are capable 
of redefining the background color. 

Error Conditions 

The graphics system must be initialized and a display device must be enabled or this call will be 
ignored, an ESCAPE (— 27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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SET_DISPLAY_LIM 

IMPORT: dgLlib 


This procedure redefines the logical display limits of the graphics display. 

Syntax 


—»>(set_pisplayj.im)—>{T)—» 




minimum 
y value 


q 

maximum 
y value 

KH 

error 

variable name 




Item 

Description/Default 

Range 

Restrictions 

minimum x value 

Expression of TYPE REAL 

- 

maximum x value 

Expression of TYPE REAL 

- 

minimum y value 

Expression of TYPE REAL 

- 

maximum y value 

Expression of TYPE REAL 

- 

error variable name 

Variable of TYPE INTEGER 

- 


Procedure Heading 

PROCEDURE SET_D I SPLAY_L IM ( Xmint Xmax» 

Ymin t Y m a x : REAL > 

MAR Ierr : INTEGER )5 


Semantics 

The minimum x value is the distance in millimetres that the left side of the logical display limits is 
offset from the left side of the physical display limits. 

The maximum x value is the distance in millimetres that the right side of the logical display limits 
is offset from the left side of the physical display limits. 

The minimum y value is the distance in millimetres that the bottom of the logical display limits is 
offset from the bottom of the physical display limits. 

The maximum y value is the distance in millimetres that the top of the logical display limits is 
offset from the bottom of the physical display limits. 

The error variable will contain an integer indicating whether the limits were successfully set. 
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Value 

0 

1 

2 


Meaning _ 

The display limits were successfully set. 

The minimum x value was greater than or equal to the maximum x value and/or the 
minimum y value was greater than the maximum y value. 

The parameters specified were outside the physical display limits. 


If the error variable is non-zero, the call was ignored. 


SET_DISPLAY_LIM allows an application program to specify the region of the display surface 
where the image will be displayed. The limits of this region are defined as the logical display limits. 
Upon initialization, the graphics system sets these limits equal to some portion of the specified 
physical device. This routine allows a programmer to set the plotting surface of a very large plotter 
equal to the size of an 8 1/2 x 11 inch paper, for example. 


The pairs (minimum x value, minimum y value) and (maximum x value, maximum y value) 
define the corner points of the new logical display limits in terms of millimetres offset from the 
origin of the physical display. The exact position of the physical display origin is device depen¬ 
dent. The specifics of various devices are covered later in this entry. 

This procedure causes a new virtual coordinate system to be defined. SET_DISPLAY_LIM 
calculates the new limits of the virtual coordinate system as a function of the current aspect ratio 
and the new limits of the logical display. This does not affect the limits of the viewport. Since it 
changes the size of the area onto which the viewport is mapped, it may scale the size of the image 
displayed. It will not distort the image; it can only make it smaller or larger. 

SET_DISPLAY_LIM should only be called while the graphics display is enabled. 

Neither the value of the starting position nor the location of the physical pen or beam is altered by 
this routine. Since this routine may redefine the viewing transformation, the starting position may 
be mapped to a different coordinate on the display surface. A call to MOVE or INT_MOVE should 
therefore be made after this call to update the value of the starting position and in so doing, place 
the physical pen or beam at a known location. 


If the logical display and logical locator are associated with the same physical device, a call to 
SET_DISPLAY_LIM will set the logical locator limits equal to the new limits of the virtual 
coordinate system. A call to SET_DISPLAY_LIM also sets the locator echo position to its default 
value, the center of the world coordinate system. 



B-100 Graphics Procedure Reference 


Display Limits of Raster Devices 

The CRT’s for Series 200/300 computers have the following limits: 


Computer 

Wide 

mm 

High 

mm 

Wide 

points 

High 

points 

Aspect 

Resolution 

points/mm 

Model 216 

160 

120 

400 

300 

.75 

2.5 

Model 217 

230 

175 

512 

390 

.7617 

2.226 

Model 220 (HP 82913A) 

210 

158 

400 

300 

.75 

2.632 

Model 220 (HP 82912A) 

152 

114 

400 

300 

.75 

2.632 

Model 226 

120 

88 

400 

300 

.75 

3.333 

Model 236 

210 

160 

512 

390 

.7617 

2.438 

Model 236 Color 

217 

163 

512 

390 

.7617 

2.39 

Model 237 

312 

234 

1024 

768 

.75 

3.282 

HP 98542A 

210 

164 

512 

400 

.7813 

2.433 

HP 98543A 

210 

164 

512 

400 

.7813 

2.433 

HP 98544A 

312 

234 

1024 

768 

.75 

3.282 

HP 98545A 

360 

270 

1024 

768 

.75 

2.844 

HP 98547A 

360 

270 

1024 

768 

.75 

2.844 

HP 98548A 

343 

274 

1280 

1024 

.7988 

3.729 

HP 98549A 

360 

270 

1024 

768 

.75 

2.844 

HP 98550A 

343 

274 

1280 

1024 

.7988 

3.729 

HP 98700A 

360 

270 

1024 

768 

.75 

2.844 

362/382 VGA 

290 

210 

640 

480 

.75 

2.207 

382 Medium Res 

300 

225 

1024 

768 

.75 

3.413 

382 High Res 

340 

272 

1280 

1024 

.7988 

3.765 


The physical size of the HP 98627A display (needed by the SET_DISPLAY_L1M procedure) may 
be given to the graphics system by an escape function (OPCODE = 250). The physical limits 
assumed until the escape function is given are: 


CONTROL 


256 153.3mm wide and 116.7mm high. 

512 153.3mm wide and 116.7mm high. 

768 153.3mm wide and 142.2mm high. 

1024 153.3mm wide and 153.3mm high. 

1280 153.3mm wide and 153.3mm high. 


The default logical display surface of the graphics display device is the maximum physical limits of 
the screen. The physical origin is the lower left corner of the display. 


The view surface is always centered within the current logical display surface. The origin of a 
raster display is the lower-left dot. 
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HPGL Plotter Display Limits 


Plotter 

Wide 

mm 

High 

mm 

Wide 

points 

High 

points 

Aspect 

Resolution 

points/mm 

7440A 

272.5 

191.25 

10900 

7650 

.7018 

40.0 

7470 

257.5 

191.25 

10300 

7650 

.7427 

40.0 

7475 

416 

259.125 

16640 

10365 

.6229 

40.0 

7550A/B 

411.25 

254.25 

16450 

10170 

.6182 

40.0 

7570A 

809.5 

524.25 

32380 

20970 

.6476 

40.0 

7575A 

809.5 

524.25 

32380 

20970 

.6476 

40.0 

7576A 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

7580 

809.5 

524.25 

32380 

20970 

.6476 

40.0 

7585 

1100 

891.75 

44000 

35670 

.8107 

40.0 

7586 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

7595A/B 

1100 

891.75 

44000 

35670 

.8107 

40.0 

7596A/B 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

7599A 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

9872 

400 

285 

16000 

11400 

.7125 

40.0 

35723 

210.0 

164.0 

57 

43 

.7500 

470.0 

46087A 

297.6 

216.5 

11904 

8660 

.7275 

40.0 

46088A 

432.4 

297.6 

17296 

11904 

.6883 

40.0 


The 7550B, 7595B, 7596A, and 7599A plotters are only supported in 7550A, 7595A, or 7596A 
emulation mode. 

The maximum physical limits of the graphics display for a HPGL device not listed above are 
determined by the default settings of PI and P2. The default settings of PI and P2 are the values 
they have after an HPGL ’IN’ command. Refer to the specific device manual for additional 
details. 


The default logical display surface is set equal to the area defined by PI and P2 at the time 
DISPLAY_INIT is invoked. The view-surface is always justified in the lower left corner of the 
current logical display surface (corner nearest the turret for the HP 7580 and HP 7585 plotters). 
The physical origin of the graphics display is at the lower left boundary of pen movement. 


Note 

If the paper is changed in an HP 7570A, HP 7575A, HP 7576A, 
HP 7580, HP 7585, HP 7595A/B, HP 7596A/B, or HP 7599A plotter 
while the graphics locator is initialized, it should be the same size of paper 
that was in the plotter when DISPLAY_INIT was called. If a different size 
of paper is required, the device should be terminated (DISPLAY_TERM) 
and re-initialized after the new paper has been placed in the plotter. 


Error Conditions 

The graphics system must be initialized and a display device enabled or this call will be ignored, 
an ESCAPE ( —27) will be generated, and GRAPHICSERROR will return a non-zero value. 



B-102 Graphics Procedure Reference 


SET_ECHO_POS 

IMPORT: dgLlib 


This procedure defines the locator echo position on the graphics display. 

Syntax 



Item 

Description/Default 

Range 

Restrictions 

x coordinate 

y coordinate 

Expression of TYPE REAL 

Expression of TYPE REAL 

— 


Procedure Heading 

PROCEDURE SET_ECHO_POS ( Wx > M v : REAL ) \ 

Semantics 

The x and y coordinate pair is the new echo position in world coordinates. 

When echoing on the display device, SET_ECHO_POS allows a programmer to define the 
position of the locator echo position. This is a point in the world coordinate system that represents 
the initial position of the locator. It is used with certain locator echoes on the graphics display. For 
example, it is used as the anchor point when a rubber band echo is performed. With this echo, the 
graphics cursor is initially turned on at the locator echo position. From that time on, the cursor 
reflects the position of the locator and a line extends from the locator echo position to the locator 
as it moves around the graphics display. To be used in echoing, the point must be displayable. 
Therefore, if the point specified is outside of the limits of the window the call is ignored. 

The locator echo position will only be used when AWAIT_LOCATOR is called with echo types 2 
through 8, e. g., type 4 is a rubber band line echo. The locator echo position is only used when the 
locator echo is being sent to the graphics display device, and is not used when sampling the 
locator. 

SET_ECHO_POS should only be called while the graphics display and locator are initialized. If 
the point passed to SET_ECHO_POS is outside the current window limits, then the call to 
SET_ECHO_POS is ignored and no error is given. 

The default locator echo position is the center of the limits of the window. When the locator is 
initialized, the locator echo position is set to the default value. When a call is made which affects 
the viewing transformations for the graphics display surface or the logical locator limits, the 
locator echo position is set to the default value. The calls which cause this are SET_ASPECT, 
DISPLAYJNIT, SET_DISPLAY_LIM, LOCATORJNIT, SET_LOCATOR_LIM, SET_WIN- 
DOW, and SET_VIEWPORT. 
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Once the locator echo position is set, it retains this value until the next call to SET_ECHO_POS or 
until a call is made which resets it to the default value. 

Error Conditions 

The graphics system must be initialized, and a display device and a locator device must be 
enabled, or this call will be ignored, an ESCAPE (-27) will be generated, and GRAPHICSER- 
ROR will return a non-zero value. 
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SET_XINE_STYLE 

IMPORT: dglJib 


This procedure sets the line style attribute. 


Syntax 


—+ ( SETJ.INEJ3TYLE ) — 


line style 
selector 


Item 

Description/Default 

Range 

Restrictions 

Recommended 

Range 

line style selector 

Expression of TYPE INTEGER 

MININT thru 
MAXINT 

Device 

Dependent 


Procedure Heading 

PROCEDURE SET_LINE_STYLE (Line_Stvle : INTEGER)5 

Semantics 

The line style selector is the line style to be used for lines, polylines, polygon edges, and text. 

Markers are not affected by line-style. Polygon interior line-style is selected with SET_PGN_LS. 

SET_LINE_STYLE sets the line style attribute for lines and text. The mapping between the value 
of the line style attribute and the line style selected is device dependent. If a line style attribute is 
requested that the device cannot perform exactly as requested, line style 1 will be performed. 

There are three types of line-styles: start adjusted, continuous, and vector adjusted: 

Start adjusted line-styles always start the cycle at the beginning of the vector. Thus if the current 
line-style starts with a pattern, each vector drawn will start with that pattern. Likewise, if the 
current line-style starts with a space and then a dot, each vector will be drawn starting with a space 
and then a dot. In this case if the vectors are short, they might not appear at all. 

Continuous line styles are generated such that the pattern will be started with the first vector 
drawn. Subsequent vectors will be continuations of the pattern. Thus, it may take several vectors 
to complete one cycle of the pattern. This type of line-style is useful for drawing smooth curves, 
but does not necessarily designate either endpoint of a vector. A side effect of this type of 
line-style is if a vector is small enough it might be composed only of the space between points or 
dashes in the line-style. In that case, the vector may not appear on the graphics display at all. 
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Vector adjusted line-styles treat each vector individually. Individual treatment guarantees that a 
solid component of the dash pattern will be generated at both ends of the vector. Thus, the 
endpoints of each vector will be clearly identifiable. This type of line-style is good for drawing 
rectangles. The integrity of the line-style will degenerate with very small vectors. Since some 
component of the dash pattern must appear at both ends of the vector, the entire vector for a 
short vector will often be drawn as solid. 

The following figure illustrates how one pattern would be displayed using each one of the 
different line-style types: 


*IL=_t=U ♦ 


START ADJUSTED 



LINESTYLE USED 

It should be apparent from the above discussion that drawing to the starting position will generate 
a point (the shortest possible line) only if the line-style is such that the pen is down (or the beam is 
on) at the start of that vector. Likewise, whole vectors may not appear on the graphics display 
surface if the line-style is such that the vector is smaller than the blank space in the line-style. The 
device handlers section of this document details the line-styles available for each device. 


Note 

When using continuous line styles, complement and erase drawing modes 
(available on some raster displays e.g., Model 226) may not completely re¬ 
move lines previously drawn. This happens since the line style pattern may 
not be in sync with the first line when the second line is drawn. By setting 
the line-style to solid when using complement and erase drawing modes 
the application program can insure that the line is completely removed. 
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Raster Line Styles 

Eight pre-defined line-styles are supported on the graphics display. All of the line-styles may be 
classified as being “continuous”: 


Q 

O 



4 - 



P 


1 


Raster Line Styles 


Plotter Line Styles 

The following table describes the line styles available on the supported plotters. 


Device 

Number of continuous 
line-styles 

Number of vector adjusted 
line-styles 

9872 

7 

0 

7470 

7 

0 

7475 

7 

0 

7550 

7 

6 

7570 

7 

6 

7575 

7 

6 

7576 

7 

6 

7580 

7 

6 

7585 

7 

6 

7586 

7 

6 

7595 

7 

6 

7596 

7 

6 

7599 

7 

6 

Other 

7 

0 



HP 9872 and 7470 Line Styles 
(all are continuous) 
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13 
12 

1 1 - 

10 - 

9 - - 
8 - - 
7 • 

6- 

5- 

4- 

3 — 

2 — 

1 - 

VECTOR ADJUSTED 

HP 7570, HP 7575A, HP 7576A, HP 7580, HP 7585, HP 7586, HP 7595, HP 7596, HP 7599 


If the line style specified is not supported by the graphics display, the call is completed with 
LINE_STYLE = 1 and no error is reported. 

The graphics system must be enabled and a display device must be enabled or this call will be 
ignored and GRAPHICSERROR will return a non-zero value. 

Error Conditions 

The graphics system must be enabled and a display device must be enabled or this call will be 
ignored and GRAPHICSERROR will return a non-zero value. 
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SET_LINE_WIDTH 

IMPORT: dgLIib 


This procedure sets the line-width attribute. The number of line-widths possible is device 
dependent. 


Syntax 


SETJ_INE_WIDTH 


line width 
se lector 


Item 

Description/Default 

Range 

Restrictions 

line-width selector 

Expression of TYPE INTEGER 

MININT thru MAXINT 


Procedure Headings 

PROCEDURE SET_L I NE_WI DTH ( Linewidth : INTEGER ) i 

Semantics 

SET_LINE_WIDTH sets the line-width attribute for lines, polylines and text. The line-width 
attribute does not affect markers which are defined to be always output with the thinnest 
line-width supported on the device. All devices support at least one line-width. The range of 
line-widths is device dependent but line-width 1 is always the thinnest line-width supported. For 
devices that support multiple line-widths, the line-width increases as line-width does until the 
device supported maximum is reached. For example, line-width = 1 specifies the thinnest, 
line-width = 2 specifies the next wider line-width, etc. 

If line-width is greater than the number of line-widths supported by the graphics display or 
line-width is less than 1, then the line-width will be set to the thinnest available width (line-width 
= 1). All subsequent lines and text will then be drawn with the thinnest available line-width. A call 
to INQ_WS with OPCODE equal to 1063 to inquire the value of the line-width will then return a 
1. 

The initial line-width is the thinnest width supported by the device (line-width = 1). 


Note 

All current devices support a single line-width. 


Error Conditions 

The graphics system must be initialized and a display device must be enabled or this call is 
ignored, an ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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SET_LOCATOR_LIM 

IMPORT: dglJib 


This procedure redefines the logical locator limits of the graphics locator. 

Syntax 

^^SETJ-OCATORJ-Im) ^’Tx^va^ue"! ^ 


Q 


max 1 mum 
y value 


■GH 


error 


variable name 





Item 

Description/Default 

Range 

Restrictions 

minimum x value 

Expression of TYPE REAL 

- 

maximum x value 

Expression of TYPE REAL 

- 

maximum y value 

Expression of TYPE REAL 

- 

minimum y value 

Expression of TYPE REAL 

- 

error variable name 

Variable of TYPE INTEGER 

- 


Procedure Heading 

PROCEDURE SET_L0CAT0R_LIM ( 


Xmin # X max # 

Y m in# Y m a x : R E A L > 

MAR Ierr : INTEGER ) 5 


Semantics 

The minimum x value is the distance in millimetres that the left side of the logical locator limits is 
offset from the left side of the physical locator limits. 

The maximum x value is the distance in millimetres that the right side of the logical locator limits 
is offset from the left side of the physical locator limits. 

The minimum y value is the distance in millimetres that the bottom of the logical locator limits is 
offset from the bottom of the physical locator limits. 

The maximum y value is the distance in millimetres that the top of the logical locator limits is 
offset from the bottom of the physical locator limits. 

The error variable will contain an integer indicating whether the limits were successfully set. 
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Value Meaning _ 

0 The display limits were successfully set. 

1 The minimum x value was greater than or equal to the maximum x value and/or the 
minimum y value was greater than the maximum y value. 

2 The parameters specified were outside the physical display limits. 

3 Attempt to explicitly define locator limits on a device which is both the logical locator 
and the logical display. The logical display limits are used when a device is shared for 
both purposes, and they cannot be redefined with this call. 

If the error variable is non-zero, the call was ignored. 

SET_LOCATOR_LIM allows an application program to specify the portion of the physical 
locator device that should be used to perform locator functions. When the logical locator device is 
enabled (via LOCATOR-INIT) the logical device limits are set to a device dependent portion of 
the physical locator device. With a call to this routine the user can set the logical locator limits by 
specifying a new area within the physical locator limits. 

The pairs (minimum x value, minimum y value) and (maximum x value, maximum y value) 
define the corner points of the new logical locator limits in terms of millimetres offset from the 
origin of the physical locator. The exact position of the physical locator origin is device depen¬ 
dent. Specific origins are covered later in this entry. 

If a logical locator and a logical display are associated with the same physical device, then the 
logical locator limits must be the same as the logical view surface limits. Specifically, the effects of 
the association with the same physical device are as follows: 

• The logical locator limits are initialized to the same values as the virtual coordinate system. 

• Any call which redefines the virtual coordinate system limits will also redefine the logical 
locator limits. 

• The logical locator limits can not be defined by a call to SET_LOCATOR_LIM. 

By changing the logical locator limits any portion of the graphics locator can be addressed, with 
the restrictions stated above. 

The logical locator limits always map directly to the view surface, therefore, distortion may result 
in the mapping between the logical locator and the display when the logical locator limits and the 
view surface have different aspect ratios. If the distortion is not desired it can be avoided by 
assuring that the logical locator limits maintain the same aspect ratio as that of the view surface. 


SET_LOCATOR_LIM should only be called while the graphics locator is enabled. SETJLOCA- 
TOR_LIM sets the locator echo position to the default value (see SET_ECHO_POS). 
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Relative Locator Limits (Knob or Mouse) 

The knob may be used as a locator on Series 200/300 computers. The default characteristics 
of the knob on various Series 200/300 computers is listed in the table below. 


Computer 

Wide 

mm 

High 

mm 

Wide 

points 

High 

points 

Aspect 

Resolution 

points/mm 

Model 216 

160 

120 

400 

300 

.75 

2.5 

Model 217 

230 

175 

512 

390 

.7617 

2.226 

Model 220 (HP 82913A) 

210 

158 

400 

300 

.75 

2.632 

Model 220 (HP 82912A) 

152 

114 

400 

300 

.75 

2.632 

Model 226 

120 

88 

400 

300 

.75 

3.333 

Model 236 

210 

160 

512 

390 

.7617 

2.438 

Model 236 Color 

217 

163 

512 

390 

.7617 

2.39 

Model 237 

312 

234 

1024 

768 

.75 

3.282 

HP 98542A 

210 

164 

512 

400 

.7813 

2.433 

HP 98543A 

210 

164 

512 

400 

.7813 

2.433 

HP 98544A 

312 

234 

1024 

768 

.75 

3.282 

HP 98545A 

360 

270 

1024 

768 

.75 

2.844 

HP 98547A 

360 

270 

1024 

768 

.75 

2.844 

HP 98548A 

343 

274 

1280 

1024 

.7988 

3.729 

HP 98549A 

360 

270 

1024 

768 

.75 

2.844 

HP 98550A 

343 

274 

1280 

1024 

.7988 

3.729 

HP 98700A 

360 

270 

1024 

768 

.75 

2.844 

362/382 VGA 

290 

210 

640 

480 

.75 

2.207 

382 Medium Res 

300 

225 

1024 

768 

.75 

3.413 

382 High Res 

340 

272 

1280 

1024 

.7988 

3.765 


The knob uses the current display limits as its locator limits for locator echoes 2 though 8. For all 
other echoes the above limits are used. An example of when the two limits may differ follows: 

The knob locator is initialized on a Model 226. The graphics display is an HP 98627A color 
output card. The resolution of the locator is 0 through 399 in x dimension, and 0 through 299 
in y dimension. The resolution of the display is 0 through 511 in x dimension, and 0 through 
389 in y dimension. When await_locator is used with echo 4, the locator will effectively have 
the HP 98627A resolution for the duration of the awaitjocator call. However, if echo 1 is used 
with awaitjocator, the cursor will appear on the Model 226 and the locator has a resolution 
of 0 x 399 and 0 x 299. Note that all conversion routines and inquiries will use the Model 
226 limits. 

The physical origin of the locator device is the lower left corner of the display. 
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Absolute Locator Limits (HPGL Plotter or Graphics Tablet) 

HPGL plotter and graphics tablets can be used as locators. The default characteristics of some 
HPGL devices are listed below. 


Plotter 

Wide 

mm 

High 

mm 

Wide 

points 

High 

points 

Aspect 

Resolution 

points/mm 

7440A 

272.5 

191.25 

10900 

7650 

.7018 

40.0 

7470 

257.5 

191.25 

10300 

7650 

.7427 

40.0 

7475 

416 

259.125 

16640 

10365 

.6229 

40.0 

7550A/B 

411.25 

254.25 

16450 

10170 

.6182 

40.0 

7570A 

809.5 

524.25 

32380 

20970 

.6476 

40.0 

7575A 

809.5 

524.25 

32380 

20970 

.6476 

40.0 

7576A 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

7580 

809.5 

524.25 

32380 

20970 

.6476 

40.0 

7585 

1100 

891.75 

44000 

35670 

.8107 

40.0 

7586 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

7595A/B 

1100 

891.75 

44000 

35670 

.8107 

40.0 

7596A/B 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

7599A 

1182.8 

898.1 

47312 

35924 

.7593 

40.0 

9872 

400 

285 

16000 

11400 

.7125 

40.0 

35723 

210.0 

164.0 

57 

43 

.7500 

470.0 

46087A 

297.6 

216.5 

11904 

8660 

.7275 

40.0 

46088A 

432.4 

297.6 

17296 

11904 

.6883 

40.0 


The 7550B, 7595B, 7596A, and 7599A plotters are only supported in 7550A, 7595A, or 7596A 
emulation mode. 

The maximum physical limits of the locator for a HPGL device not listed above are determined by 
the default settings of PI and P2. The default settings of PI and P2 are the values they have after 
an HPGL TN’ command. Refer to the specific device manual for additional details. 

The default logical display surface is set equal to the area defined by PI and P2 at the time 
LOCATOR-INIT is invoked. 


Note 

If the paper is changed in an HP7570A, HP7575A, HP 7576A, 
HP 7580, HP 7585, HP 7595A/B, HP 7596A/B, or HP 7599A plotter 
while the graphics locator is initialized, it should be the same size of paper 
that was in the plotter when DISPLAYJNIT was called. If a different size 
of paper is required, the device should be terminated (DISPLAY_TERM) 
and re-initialized after the new paper has been placed in the plotter. 


Error Conditions 

The graphics system must be initialized and a display device enabled or this call will be ignored, 
an ESCAPE ( — 27) will be generated, and GRAPHICSERROR will return a non-zero value. 

HP-HIL Absolute Locator Semantics 

I e p r is an error return variable. If i e r r = 0, the call to set_locator_lim successfully set the locator 
limits according to the other parameters. If i e r r =£ 0 then the value indicates a DGL error condition, 
and set-locato r_l itfl has no effect. I err values used are standard wherever possible, with some 
new values being added to DGL for special HP-HIL conditions. 
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SET_PGN_COLOR 

IMPORT: dgLlib 
dgLpoly 


This procedure selects the polygon interior color attribute for subsequently generated polygons 
by providing a selector for the color table. 


Syntax 


-c SET _PGN_C0L0R X<M 


Item 

Description/Default 

Range 

Restrictions 

Recommended 

Range 

color selector 

Expression of TYPE INTEGER 

MININT thru 
MAXINT 

Device 

dependent. 


Procedure Heading 

PROCEDURE SET_PGN_COLOR ( Cindex : INTEGER )5 

Semantics 

The color selector is an index into the color table. The contents of the color table are then used to 
specify the color when primitives are drawn. On some devices (HPGL plotters), the color selector 
maps directly to a pen number for the device. On the color-mapped displays, the entries in 
the color table can be modified with SET_COLOR_TABLE. The color actually used depends 
on the value in a device-dependent color table. 

At device initialization a default color table is created by the graphics system. The size and 
contents of the table are device dependent. At least one entry exists for all devices. A call to 
INQ_WS with OPCODE equal to 1053 will return the number of colors available on a given 
graphics device. Some devices allow the color table to be modified with SET-TABLE. 

The default value of the color attribute is 1. If the value of the color selector is not supported on 
the graphics display, the color attribute will be set to 1. 

A color selector of 0 has special effects depending on the graphics display used. For raster 
devices, a color selector of 0 means to draw in the background color. For most plotters, it puts the 
pen away. 

Dithering 

If the device is not capable of reproducing a color in the color table, the closest color which the 
device is capable of reproducing is used instead. For polygon fill (in a device dependent mode) 
this may involve dithering. For example, the HP 98627A color output interface card is capable of 
a large selection of polygon fill colors, but only 8 line colors. Thus, the fill color could match the 
selected color much more closely than the line color used to outline the polygon. See SET- 
COLOR-TABLE for details on how colors are matched to the devices. 
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Default Raster Color Map 

The following table shows the default (initial) color table for the black and white displays 
(computer models 216, 220, 226, 236, 237, HP98542A, HP98544A, and HP98548A): 


Index # 

Hue 

Saturation 

Luminosity 

0 

0 

0 

0 

1 

0 

0 

1.0000 

2 

0 

0 

0.9375 

3 

0 

0 

0.8750 

4 

0 

0 

0.8125 

5 

0 

0 

0.7500 

6 

0 

0 

0.6875 

7 

0 

0 

0.6250 

8 

0 

0 

0.5625 

9 

0 

0 

0.5000 

10 

0 

0 

0.4375 

11 

0 

0 

0.3750 

12 

0 

0 

0.3125 

13 

0 

0 

0.2500 

14 

0 

0 

0.1875 

15 

0 

0 

0.1250 

16 

0 

0 

0.0625 


Colors 17 though 31 are set to white. 

The following table shows the default (initial) color table for the color displays (computer 
model 236C, HP 98627, HP98543A, HP98545A, HP98547A, HP98549A, HP98550A 
and HP 98700A): 


Index # 

Color name 

Red 

Green 

Blue 

0 

Black 

0.000000 

0.000000 

0.000000 

1 

White 

1.000000 

1.000000 

1.000000 

2 

Red 

1.000000 

0.000000 

0.000000 

3 

Yellow 

1.000000 

1.000000 

0.000000 

4 

Green 

0.000000 

1.000000 

0.000000 

5 

Cyan 

0.000000 

1.000000 

1.000000 

6 

Blue 

0.000000 

0.000000 

1.000000 

7 

Magenta 

1.000000 

0.000000 

1.000000 

8 

Black 

0.000000 

0.000000 

0.000000 

9 

Olive green 

0.800000 

0.733333 

0.200000 

10 

Aqua 

0.200000 

0.400000 

0.466667 

11 

Royal blue 

0.533333 

0.400000 

0.666667 

12 

Violet 

0.800000 

0.266667 

0.400000 

13 

Brick red 

1.000000 

0.400000 

0.200000 

14 

Burnt orange 

1.000000 

0.466667 

0.000000 

15 

Grey brown 

0.866667 

0.533333 

0.266667 


Colors 9 through 15 are a graphic designer’s idea of colors for business graphics. Color table 
entries not shown above are set to white. 
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Raster Drawing Modes 

Raster drawing modes have no effect on polygon fill color. 


Plotters 

A Color Selector of 0 selects no pens (the current pen is put away). The supported range of 
Color Selectors for each supported plotter is: 

■ 9872A - 0 through 4 

■ 9872B - 0 through 4 

■ 9872C/S/T - 0 through 8 

■ 7550A&B/7570A/7575A/7576A/7580A/7585A/7586A/7595A&B/7596A&B/ 

7599A - 0 through 8 

■ 7470A - 0 through 2 

■ 7475A - 0 through 6 

Error Conditions 

The graphics system must be initialized and a display must be enabled. Otherwise, this call 
will be ignored, an ESCAPE (-27) will be generated, and GRAPHICSERROR will return a 
non-zero value. 



B-116 Graphics Procedure Reference 


SET_PGN_LS 

IMPORT: dgLlib 
dgLpoly 


This procedure selects the polygon interior line-style attribute for subsequently generated 
polygons by providing a selector for the device dependent line-style table. 

Syntax 


—c SET_PGNJ_S MiM 


1 ine style 
selector 


HXk 


Item 

Description/Default 

Range 

Restrictions 

Recommended 

Range 

line-style selector 

Expression of TYPE INTEGER 

MININT thru 
MAXINT 

Device 

dependent 


Procedure Heading 

PROCEDURE SET-PGN_LS ( Lindex : INTEGER )5 

Semantics 

The line style selector is the line style to be used for polygon interiors. 

Line-styles for other primitives are selected using SET_LINE_STYLE. 

The mapping between the value of the line style attribute and the line style selected is device 
dependent. If a line style attribute is requested that the device cannot perform exactly as 
requested, line style 1 will be performed. 

There are three types of line-styles - start adjusted, continuous, and vector adjusted: 

Start adjusted line-styles always start the cycle at the beginning of the vector. Thus if the current 
line-style starts with a pattern, each vector drawn will start with that pattern. Likewise, if the 
current line-style starts with a space and then a dot, each vector will be drawn starting with a space 
and then a dot. In this case if the vectors are short, they might not appear at all. 

Continuous line styles are generated such that the pattern will be started with the first vector 
drawn. Subsequent vectors will be continuations of the pattern. Thus, it may take several vectors 
to complete one cycle of the pattern. This type of line-style is useful for drawing smooth curves, 
but does not necessarily designate either endpoint of a vector. A side effect of this type of 
line-style is if a vector is small enough it might be composed only of the space between points or 
dashes in the line-style. In that case, the vector may not appear on the graphics display at all. 
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Vector adjusted line-styles treat each vector individually. Individual treatment guarantees that a 
solid component of the dash pattern will be generated at both ends of the vector. Thus, the 
endpoints of each vector will be clearly identifiable. This type of line-style is good for drawing 
rectangles. The integrity of the line-style will degenerate with very small vectors. Since some 
component of the dash pattern must appear at both ends of the vector, the entire vector for a 
short vector will often be drawn as solid. 


The following figure illustrates how one pattern would be displayed using each one of the 
different line-style types: 
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START ADJUSTED 


CONTINUOUS 


VECTOR ADJUSTED 


It should be apparent from the above discussion that drawing to the starting position will generate 
a point (the shortest possible line) only if the line-style is such that the pen is down (or the beam is 
on) at the start of that vector. Likewise, whole vectors may not appear on the graphics display 
surface if the line-style is such that the vector is smaller than the blank space in the line-style. The 
device handlers section of this document details the line-styles available for each device. 


Note 

When using continuous line styles, complement and erase drawing modes 
(available on some raster displays e.g., Model 226) may not completely 
remove lines previously drawn. This happens since the line style pattern 
may not be in sync with the first line when the second line is drawn. By 
setting the line style to solid when using complement and erase drawing 
modes, the application program can insure that the line is completely 
removed. 
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Raster Line Styles 

Eight pre-defined line-styles are supported on the graphics display. All of the line-styles may be 
classified as being “continuous”: 



*7 

(' 




1 


Raster Line Styles 


Plotter Line Styles 

The following table describes the line styles available on the supported plotters. 


Device 

Number of continuous 
line-styles 

Number of vector adjusted 
line-styles 

9872 

7 

0 

7470 

7 

0 

7475 

7 

0 

7550 

7 

6 

7570 

7 

6 

7575 

7 

6 

7576 

7 

6 

7580 

7 

6 

7585 

7 

6 

7586 

7 

6 

7595 

7 

6 

7596 

7 

6 

7599 

7 

6 

Other 

7 

0 


7 . 

5 - 

4 - 

3 - 

2 - 

1 - 



CONTINUOUS 


HP 7440, 7470, 7475, and 9872 Line Styles 
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HP 7550A/B, 7570A, 7575A, 7576A, 7580, 7585, 7586, 7595A/B, 7596A/B, 

and 7599A Line Styles 

If the line style specified is not supported by the graphics display, the call is completed with 
LINE_STYLE = 1 and no error is reported. 

The graphics system must be enabled and a display device must be enabled or this call will be 
ignored and GRAPHICSERROR will return a non-zero value. 

Error conditions: 

The graphics system must be initialized and a display device must be enabled or this call will be 
ignored, an ESCAPE ( -27) will be generated, and GRAPHICSERROR will return an non-zero 
value. 
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SET_PGN_STYLE 

IMPORT: dgLlib 
dgLpoly 


This procedure selects the polygon style attribute for subsequently generated polygons by 
providing a selector for the polygon style table. 


Syntax 


SET_PGN_STYLE XIH3 


Lygon style[ 
selector 


Item 

Description/Default 

Range 

Restrictions 

Recommended 

Range 

polygon style 

Expression of TYPE INTEGER 

MININT thru 

Device 

selector 


MAXINT 

dependent 


Procedure Heading 

PROCEDURE SET_PGN_STYLE ( Pindex : INTEGER )? 

Semantics 

Polygon styles can vary in polygon interior density, polygon interior orientation and polygon 
edge display. See SET_PGN_TABLE for details on default styles, and how the polygon style 
table may be changed. 

Error Conditions 

The graphics system must be initialized and a display device must be enabled or this call will be 
ignored and GRAPHICSERROR will return an non-zero value. 
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SET_PGN_TABLE 

IMPORT: dgLlib 
dgLpoly 


This procedure defines a polygon style attribute, i.e. an entry in a polygon style table. 

Syntax 


SET_PGN_TABLE ) -»Q— » [ seTe^or h ^Q H densVty 


fill 

or ientation 


L_J edge [_*/ 7 Y-*~ 

selector 


Item 

Description/Default 

Range 

Restrictions 

Recommended 

Range 

entry selector 

Expression of TYPE INTEGER 

MIN1NT thru 
MAXINT 

Device 

dependent 

fill density 

Expression of TYPE REAL 

MININT thru 
MAXINT 

-1 thru 1 

fill orientation 

Expression of TYPE REAL 

MININT thru 
MAXINT 

-90 thru 90 

edge selector 

Expression of TYPE INTEGER 

MININT thru 
MAXINT 

- 


Procedure Heading 

PROCEDURE SET_PGN_TABLE ( 


I n d e x 
Densty 
Orient 
Ed 2e 


INTEGER 5 
REAL 5 
REAL 5 

INTEGER )5 


Semantics 

This routine defines the attribute of polygon style, i. e. it specifies an entry in a polygon style table. 
This entry contains information that specifies polygon interior density, polygon interior orienta¬ 
tion, polygon edge display, and device-independence of polygon display. 

The entry selector specifies the entry in the polygon style table that is to be redefined. 

The fill density determines the density of the polygon interior fill. The magnitude of this value is 
the ratio of filled area to non-filled area. Zero means the polygon interior is not filled. One 
represents a fully filled polygon interior. All non-zero values specify the density of continuous 
lines used to fill the interior. 








B-122 Graphics Procedure Reference 


Positive density values request parallel fill lines in one direction only. Negative values are used to 
specify crosshatching. For a given density, the distance between two adjacent parallel lines is 
greater with cross hatching than in the case of pure parallel filling. Calculations for fill density are 
based on the thinnest line possible on the device and on continuous line-style. 

The distance between fill lines - hence density - does not change with a change of scale caused 
by a viewing transformation. If the interior line-style is not continuous, the actual fill density may 
not match that found in the polygon style table. 

The fill orientation represents the angle (in degrees) between the lines used for filling the 
polygon and the horizontal axis of the display device. The interpretation of fill orientation is 
device-dependent. On devices that require software emulation of polygon styles, the angle 
specified will be adhered to as closely as possible, within the line-drawing capabilities of the 
device. For hardware generated polygon styles, the angle specified will be adhered to as closely 
as is possible given the hardware simulation of the requested density. If crosshatching is specified, 
the fill orientation specifies the angle of orientation of the first set of lines in the crosshatching, and 
the second set of lines is always perpendicular to this. 

The value of the edge selector determines whether the edge of the polygon is displayed. If the 
edge selector is 0, the edges will not be displayed. If the edge selector is 1, display of individual 
edge segments depends on the operation selector in the call that draws the polygon set, 
POLYGON, INT_POLYGON, POLYGON_DEV_DEP, or INT_POLYGON_DD. 

If polygon edges are displayed, they adhere to the current line attributes of color, line-style, and 
line-width, in effect at the time of polygon display. 

A device-dependent number of polygon styles are available. All devices support at least 16 
entries in the polygon table. The polygon styles defined in the default tables are defined to exploit 
the hardware capabilities of the devices they are defined for. 

Polygon interiors can be generated in either a device-dependent or device-independent fashion, 
by calling POLYGON_DEV_DEP or POLYGON respectively. 

Polygons generated in a device-dependent fashion will utilize the available hardware polygon 
generation capabilities of the device to increase the speed and efficiency of polygon generation. 
The output may vary depending on the device. Devices that have no hardware polygon genera¬ 
tion capabilities will only do a minimal representation of the polygon if a device-dependent 
representation of the polygon is requested. If an edge is not requested, an outline of the 
non-clipped boundaries of the polygon interior will be drawn in the current polygon interior color 
and polygon interior line-style if the density of the polygon interior was not zero. 

Polygons generated in a device-independent fashion will adhere strictly to the polygon style 
specification. The polygon interior generated would look similar when generated on different 
devices for a given polygon style specification. However, on raster devices rasterization of the fill 
lines may leave empty pixels when solid fill is requested with an orientation that is not 0 or 90 
degrees. Available hardware would only be used where the polygon style could be generated 
exactly as specified. 
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The number of entries in the polygon style table and the default contents of the table are device 
dependent. However, all devices support the following polygon style table: 


Entry 

Density 

Angle 

Edge 

1 

0.0 

0.0 

1 

2 

0.125 

90.0 

1 

3 

0.125 

0.0 

1 

4 

-0.125 

0.0 

1 

5 

0.125 

45.0 

1 

6 

0.125 

-45.0 

1 

7 

-0.125 

45.0 

1 

8 

0.25 

90.0 

1 

9 

0.25 

0.0 

1 

10 

-0.25 

0.0 

1 

11 

0.25 

45.0 

1 

12 

0.25 

-45.0 

1 

13 

-0.25 

45.0 

1 

14 

-0.5 

0.0 

1 

15 

1.0 

0.0 

0 

16 

1.0 

0.0 

1 


Error Conditions 

The graphics system must be initialized, a display must be enabled, and the parameters must be 
within the specified limits or this call will be ignored, an ESCAPE ( -27) will be generated, and 
GRAPHICSERROR will return a non-zero value. 
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SET_TEXT_ROT 

IMPORT: dglJib 


This procedure specifies the text direction. 

Syntax 


- ^SET.TEXT_RO^ ^ S 


Item 

Description/Default 

Range 

Restrictions 

x-axis offset 

y-axis offset 

Expression of TYPE REAL 

Expression of TYPE REAL 

— 


Procedure Heading 

PROCEDURE SET_TEXT_ROT ( Dx » Dy : REAL ) 5 

Semantics 

The x axis offset and the y axis offset specify the world coordinate components of the text 
direction vector relative to the world coordinate origin. These components cannot both be zero. 

This procedure specifies the direction in which graphics text characters are output. The default 
value (X-axis offset = 1.0; Y-axis offset = 0.0) for the text direction vector is such that characters 
are drawn in a horizontal direction left to right. The default value is set during GRAPHICS-INIT 
and DISPLAY_INIT. With X-axis offset = - 1.0 and Y-axis offset = 1.0 a 135 degree rotation 
from the horizontal (in a counter clockwise direction) may be obtained. 

Y 


Y Axis Offset 
0.5 


X Axis Offset 
1.0 

-x 


Text Rotation Angle 

Error Conditions 

The graphics system must be initialized, a display must be enabled, and the parameters must be 
within the specified limits or this call will be ignored, an ESCAPE (-27) will be generated, and 
GRAPHICSERROR will return a non-zero value. 
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IMPORT: dgLIib 


SET.TIMING 


This procedure selects the timing mode for graphics output. 

Syntax 


—*■( SET_TIMING H 

timing mode 
selector 

HD- 


Item 


Description/Default 

Range 

Restrictions 

timing mode selector 

Expression of TYPE INTEGER 

Oor 1 


Procedure Heading 

PROCEDURE SET_T IM ING ( Opcode : INTEGER >5 

Semantics 

The timing mode selector determines the timing mode used. 

Value Meaning _ 

0 Immediate visibility mode 

1 System buffering mode 

Graphics library timing modes are provided to control graphics throughput and picture update 

timing. Picture update timing refers to the immediacy of visual changes to the graphics display 

surface. Regardless of the timing mode used, the same final picture is sent to the graphics display. 

SET_TIMING only controls when a picture appears on the graphics display, not what appears. 

The graphics system supports two timing modes: 

• Immediate visibility Requested picture changes will be sent to the graphics display device 
before control is returned to the calling program. Due to operating system delays there may 
be a delay before the picture changes are visible on the graphics display device. 

• System buffering Requested picture changes will be buffered by the graphics system. This 
means that the graphics output will not be immediately sent to the display device. This allows 
the graphics library to send several graphics commands to the graphics display device in one 
data transfer, therefore, reducing the number of transfers. System buffering is the initial 
timing mode. 

The following routines implicitly make the picture current: 


AWAIT_LOCATOR DISPLAY.TERM 
LOCATORJNIT S AMPLE_LOC ATOR 


INPUT_ESC 
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The immediate visibility mode is less efficient than the system buffering mode. It should only be 
used in those applications that require picture changes to take place as soon as they are defined, 
even if the finished picture takes longer to create. When changing the timing mode to immediate 
visibility the picture is made current. 

An alternative to immediate visibility that will solve many application needs is the use of system 
buffering together with the MAKE_PIC_CURRENT procedure. With this method, an application 
program places graphics commands into the output buffer and flushes the buffer (see MAKE_ 
PIC_CURRENT) only at times when the picture must be fully displayed. 

A call to MAKE_PIC_CURRENT can be made at any time within an application program to insure 
that the image is fully defined. MAKE_PIC_CURRENT flushes the output buffer but does not 
modify the timing mode. 

Before performing any non-graphics system input or output (to a graphics system device) such as a 
Pascal read or write, the output buffer must be empty. If the buffer is not flushed (via immediate 
visibility of MAKE_PIC_CURRENT) prior to non-graphics system I/O, the resulting image may 
contain some ’garbage’ such as escape functions or invalid graphics data. 


Note 

Although SET-TIMING can be used with all display devices, only 
HPGL plotters buffer commands. 


Error Conditions 

The graphics system must be initialized and all parameters must be in range or this call will be 
ignored, an ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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SET_A/IEWPORT 

IMPORT: dgLIib 

This procedure sets the boundaries of the viewport in the virtual coordinate system. 

Syntax 



Item 

Description/Default 

Range 

Restrictions 

minimum x value 

Expression of TYPE REAL 

0 . 0 - 1.0 

maximum x value 

Expression of TYPE REAL 

0 . 0 - 1.0 

minimum y value 

Expression of TYPE REAL 

0 . 0 - 1.0 

maximum y value 

Expression of TYPE REAL 

0 . 0 - 1.0 


Procedure Heading 

PROCEDURE SET-VIEWPORT ( Vxmin* Uxinax » 

V y m i n t V y in a x : REAL ) 5 


Semantics 

The minimum x value is the minimum boundary in the X-direction expressed in virtual coordin¬ 
ates. 

The maximum x value is the maximum boundary in the X-direction expressed in virtual 
coordinates. 

The minimum y value is the minimum boundary in the Y-direction expressed in virtual coordin¬ 
ates. 

The maximum y value is the maximum boundary in the Y-direction expressed in virtual 
coordinates. 

SET_VIEWPORT sets the limits of the viewport in the virtual coordinate system. The viewport 
must be within the limits of the virtual coordinate system; otherwise the call will be ignored. 

The initial viewport is set up with the minimum x and y values set to 0.0 and the maximum X and 
Y values set to 1.0. 
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The initial viewport is set by GRAPHICS-INIT and SET_ASPECT. This initial viewport is 
mapped onto the maximum visible square within the logical display limits. This area is called the 
view surface. The placement of the view surface within the logical display limits is dependent 
upon the device being used. It is generally centered on CRT displays and is placed in the lower 
left-hand corner of plotters. 

By changing the limits of the viewport, an application program can display an image in several 
different positions on the same graphics display device. A program can make a call to SET_ 
VIEWPORT anytime while the graphics system is initialized. 

The starting position is not altered by this call. Since this call redefines the viewing transformation, 
the starting position may no longer represent a known world coordinate position. A call to MOVE 
or INT_MOVE should be made after this call to update the starting position. 

Error Conditions 

The graphics system must be initialized, all parameters must be within the specified range, the 
minimum X value must be less than the maximum X value and the minimum Y value must be less 
than the maximum Y value and all parameters must be within the current virtual coordinate 
system boundary, or this call will be ignored, an ESCAPE (-27) will be generated, and 
GRAPHICSERROR will return a non-zero value.. 
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SET.WINDOW 

IMPORT: dgUib 


This procedure defines the boundaries of the window. 

Syntax 


—c SETJUNDOW HK 




Item 

Description/Default 

Range 

Restrictions 

left 

Expression of TYPE REAL 

See below 

right 

Expression of TYPE REAL 

See below 

bottom 

Expression of TYPE REAL 

See below 

top 

Expression of TYPE REAL 

See below 


Procedure Heading 

PROCEDURE SET-WINDOW ( Wxmir. # Wxmax» 

Uvmint W'/inax : REAL )? 

Semantics 

The left is the minimum boundary in the X-direction expressed in world coordinates, (i.e., the left 
window border). Must not equal maximum x value. 

The right is the maximum boundary in the X-direction expressed in world coordinates, (i.e. the 
right window border). Must not equal minimum x value. 

The bottom is the minimum boundary in the Y-direction expressed in world coordinates, (i.e. the 
bottom window border). Must not equal maximum y value. 

The top is the maximum boundary in the Y-direction expressed in world coordinates, (i.e. the top 
window border). Must not equal minimum y value. 

SET-WINDOW defines the limits of the window. All positional information sent to and received 
from the graphics system is specified in world coordinate units. This allows the application 
program to specify coordinates in units related to the application. 

If the top value is less than the bottom value, the Y-axis will be inverted. If the right value is less 
than the left boundary, the X-axis will be inverted. 
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The window is linearly mapped onto the viewport specified by SET_VIEWPORT. This is done by 
mapping the left boundary to the minimum X-viewport boundary, the right boundary to the 
maximum X-viewport boundary, the bottom boundary to the minimum Y-viewport boundary, 
and the top boundary to the maximum Y-viewport boundary. If distortion of the graphics image is 
not desired, the aspect ratio of the window boundaries should be equal to the aspect ratio of the 
viewport. 

The default window limits range from -1.0 to 1.0 on both the X and Y axis. GRAPHICS-INIT is 
the only procedure which sets the window to its default limits. 

The starting position is not altered by this call. Since this call redefines the viewing transformation, 
the starting position may no longer represent a known world coordinate position. A call to MOVE 
or INT_MOVE should therefore be made after this call to update the starting position. 

SET_WINDOW can be called at anytime while the graphics system is initialized. 

Error Conditions 

The graphics system must be initialized, the minimum value for either axis must not equal the 
maximum value for that axis or this call will be ignored, an ESCAPE (- 27) will be generated, and 
GRAPHICSERROR will return a non-zero value. 
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Module Dependency Table 

The Module Dependency Table shows which modules are imported by the standard LIBRARY, 10, 
GRAPHICS, and SEGMENTER modules. 


Module to Module(s) Upon 

Be Imported Which It Depends 


LIBRARY Modules: 

RND SYSGLOBALS 

HPM 

UIO 

LOCKMODULE SYSGLOBALS 


10 Modules: 
IODECLARATIONS 
IOCOMASM 
GENERAL_0 
GENERAL.1 
GENERAL_2 
GENERAL_3 
GENERAL_4 
HPIBJD 
HPIB_1 
HPIB_2 
HPIB_3 
SERIAL_0 
SERIAL_3 


SYSGLOBALS 

SYSGLOBALS, IODECLARATIONS 

SYSGLOBALS, IODECLARATIONS 

SYSGLOBALS, IODECLARATIONS 

SYSGLOBALS, IODECLARATIONS,GENERALI, HPIB_1 

SYSGLOBALS, IODECLARATIONS 

SYSGLOBALS, IODECLARATIONS, HPIB.l 

SYSGLOBALS, IODECLARATIONS 

SYSGLOBALS, IODECLARATIONS 

SYSGLOBALS, IODECLARATIONS, HPIB.O, HPIB_1 

SYSGLOBALS, IODECLARATIONS, GENERAL!, HPIB_0, HPIB_1 

SYSGLOBALS, IODECLARATIONS 

SYSGLOBALS, IODECLARATIONS 


GRAPHICS (and FGRAPHICS) Modules: 

DGLLIB ASM, IODECLARATIONS, SYSGLOBALS, MINI, ISR, MISC, FS, 

SYSDEVS, and all GRAPHICS modules except DGI_INQ and 

DGLPOLY 

DGLPOLY SYSGLOBALS, SYSDEVS, and all GRAPHICS modules except 

DGLINQ 

DGLINQ ASM, SYSGLOBALS, A804XDVR, DGL_TYPES, DGL.VARS, 

DGLGEN, GLE_TYPES, GLE_GEN 

SEGMENTER Modules: 

SEGMENTER LOADER, LDR, SYSGLOBALS, MISC 
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I/O System Errors 

These are the values found in the system variable IORESULT and 
the corresponding error message which the system prints out auto¬ 
matically for you. 

0 No I/O error reported. 

1 Parity (CRC) wrong. I/O driver will do several retries. 

2 Illegal unit number - valid range is 1 ..50. 

3 Illegal I/O request (e.g., read from printer). 

4 Device timeout. 

5 Volume went off-line. 

6 File lost in directory. 

7 Bad file name. 

8 No room on volume. 

9 Volume not found. 

10 File not found. 

11 Duplicate directory entry. 

12 File already open, 

13 File not open. 

14 Bad input format. 

15 Disc block out of range. 

16 Device absent or inaccessible. 

17 Media initialization failed. 

18 Media is write-protected 

19 Unexpected interrupt. 

20 Hardware/media failure. 

21 Unrecognized error state. 

22 DMA absent or unavailable. 

23 File size not compatible with type. 

24 File not opened for reading. 

25 File not opened for writing. 

26 File not opened for direct access. 

27 No room in directory. 

28 String subscript out of range. 

29 Bad string parameter on close of file. 

30 Attempt to read past end-of-file mark. 

31 Media not initialized. 

32 Block not found. 

33 Device not ready or media absent. 

34 Media absent. 

35 No directory on volume. 

36 File type illegal or does not match request. 

37 Parameter illegal or out of range. 

38 File cannot be extended. 

39 Undefined operation for file. 

40 File not lockable. 

41 File already locked. 

42 File not locked. 

43 Directory not empty. 

44 Too many files open on device. 

45 Access to file not allowed. 

46 Invalid password. 

47 File is not a directory. 

48 Operation not allowed on a directory. 

49 Cannot create /WORKSTATIONS/TEMP_FILES. 

50 Unrecognized SRM error. 

51 Medium may have been changed. 

52 File system corrupt. 

53 File or file system too big. 

54 No permission for requested action. 

55 Driver cache full. 

56 Driver configuration failed. 

57 IORESULT was 57. 


Graphics System Errors 

When writing graphics programs, it will be helpful to enclose the main 
body of the program in a TRY block. In the RECOVER block, test the 
value of ESCAPECODE. If ESCAPECODE=-27, invoke a graphics 
function called GRAPHICSERROR. This will return a number which 
can be cross-referenced with the following list of error messages. 

0 No errors since last call to GRAPHICSERROR or INIT_GRAPHICS. 

1 Graphics system not initialized. 

2 Graphics display is not enabled. 

3 Locator device not enabled. 

4 ECHO value requires a graphic display to be enabled. 

5 Graphics system is already enabled. 

6 Illegal aspect ratio specified. 

7 Illegal parameters specified. 

8 Parameters specified are outside physical display limits. 

9 Parameters specified are outside limits of window. 

10 Logical locator and logical display use same device. 

11 Parameters specified are outside virtual coordinate system boundary. 

12 Escape function requested not supported by display device. 

13 Parameters specified are outside physical locator limits. 

Loader/SEGMENTER Errors 

Here is a list of errors that can be generated by the loader or by a 
program that uses the SEGMENTER module. 

100..105 Field overflow trying to link or relocate something. 

110 Circular or too deeply nested symbol definitions. 

111 Improper link information format. 

112 Not enough memory. 

116 File was not a code file. 

117 Not enough space in the explicit global area. 

118 Incorrect version number. 

•119/119 Unresolved external references. 

120 Generated by the dummy procedure returned by FIND_PROC. 

121 UNLOAD_SEGMENT called when there are no more segments to unload. 

122 Not enough space in the explicit code area. 


I/O Library Errors 

These are the values and corresponding error messages that may 
develop when using the I/O library. A call to IOERROR_MESSAGE 
will generate the appropriate message. 

0 No error. 

1 No card at select code, 

2 Interface should be HP-IB. 

3 Not active controller/commands not supported. 

4 Should be device address, not select code. 

5 No space left in buffer. 

6 No data left in buffer. 

7 Improper transfer attempted. 

8 The select code is busy. 

9 The buffer is busy. 

10 Improper transfer count. 

11 Bad timeout value/timeout not supported. 

12 No driver for this card. 

13 No DMA. 

14 Word operations not allowed. 

15 Not addressed as talker/write not allowed. 

16 Not addressed as listener/read not allowed. 

17 A timeout has occurred/no device. 

18 Not system controller. 

19 Bad status or control. 

20 Bad set/clear/test operation. 

21 Interface card is dead. 

22 End/eod has occurred. 

23 Miscellaneous-value of parameter error. 

306 Datacomm interface failure. 

313 USART receive buffer overflow. 

314 Receive buffer overflow. 

315 Missing clock. 

316 CTS false too long. 

317 Lost carrier disconnect. 

318 No activity disconnect. 

319 Connection not established. 

325 Bad data bits/parity combination. 

326 Bad status/control register. 

327 Control value out of range. 



Operating System Runtime Error Messages 

Errors detected by the operating system during the execution of a 
program generate one of the following error messages. The numbers 
correspond to the value of ESCAPECODE. 

0 Normal termination. 

-1 Abnormal termination. 

-2 Not enough memory. 

-3 Reference to NIL pointer. 

-4 Integer overflow. 

-5 Divide by zero. 

-6 Real math overflow. The number was too large. 

-7 Real math underflow. The number was too small. 

-8 Value range error. 

-9 Case value range error. 

-10 Non-zero IORESULT. (See “I/O System Errors".) 

-11 CPU word access to odd address. 

-12 CPU bus error. 

-13 Illegal CPU instruction. 

-14 CPU privilege violation. 

-15 Bad argument - SIN/COS. 

-16 Bad argument - LN (natural log). 

-17 Bad argument - SORT (square root). 

-18 Bad argument - real/BCD conversion. 

-19 Bad argument - BCD/real conversion. 

-20 Stopped by user. 

-21 Unassigned CPU trap. 

-22 Reserved. 

-23 Reserved. 

-24 Macro parameter not 0..9 or a..z. 

-25 Undefined macro parameter. 

-26 Non-zero IOE-RESULT. (See “I/O Library Errors”.) 

-27 Non-zero GRAPHICSERROR. (See "Graphics System Errors".) 

-28 Parity error in memory, 

-29 Miscellaneous hardware floating-point error. 

-30 Bad argument - arcsine/arccosine. Argument 1. 

-31 Illegal real number. 


n 


VMELIBRARY Errors 


When a VME error occurs while using the VME_DRIVER module 
procedures, you can determine which has occurred by using a 
TRY...RECOVER construct and calling the ESCAPECODE function 
in the RECOVER block. 

800 Range error: select code <^7 or ^>31. 

801 Tried to access the HP VMEbus Interface using an odd Select Code. 

802 Timeout error, the VMEbus System Controller does not grant the bus to 
the HP VMEbus Interface within the amount of seconds specified in the 
last ‘SET_TIMEOUT’ call. 

803 NumOfChar <Co or declared size of 'Data' in VME_StrRead 
NumOfBytes <Co VME_BlockRead or VME_BlockWrite. 

805 Odd NumOfBytes when using Transfer mode Wordlnc or WordFxd. 

806 The VMEbus Interface Card is not an HP 98646A VMEbus Interface Card. 




Pascal Compiler Syntax Errors 

ANSI/ISO Pascal Errors Compiler Options 



1 

2 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

50 

51 

52 

53 

54 

55 

56 

58 

59 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 
110 
111 
113 
115 
117 
121 
123 

125 

126 
127 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 
147 

149 

150 
152 
154 
156 
158 
160 

163 

164 

165 

166 

167 

168 
169 
171 
177 
181 
182 

183 

184 

185 
190 

300 

301 

302 

303 

304 

400 

401 
403-409 


Erroneous declaration of simple type. 

Expected an identifier. 

Expected a right parenthesis 

Expected a colon 

Symbol is not valid in this context. 

Error in parameter list. 

Expected the keyword OF. 

Expected a left parenthesis "(". 

Erroneous type declaration. 

Expected a left bracket 
Expected a right bracket ”]". 

Expected the keyword END. 

Expected a semicolon 
Expected an integer. 

Expected an equal sign 
Expected the keyword BEGIN. 

Expected a digit following 

Error in field list of a record declaration. 

Expected a comma 
Expected a period 

Expected a range specification symbol 
Expected an end-of-comment delimiter. 

Expected a dollar sign ' 

Error in constant specification. 

Expected an assignment operator 
Expected the keyword THEN. 

Expected the keyword UNTIL. 

Expected the keyword DO. 

Expected the keyword TO or DOWNTO. 

Variable expected. 

Erroneous factor in expression. 

Erroneous symbol following a variable. 

Illegal character in source text. 

End of source text reached before end of program. 

End of program reached before end of source text. 

Identifier was already declared. 

Low bound greater than high bound in range of constants. 
Identifier is not of the appropriate class. 

Identifier was not declared. 

Non-numeric expressions cannot be signed. 

Expected a numeric constant here. 

Endpoint values of range must be compatible and ordinal. 

NIL may not be redeclared. 

Tagfield type in a variant record is not ordinal. 

Variant case label is not compatible with tagfield. 

Array dimension type is not ordinal. 

Set base type is not ordinal. 

An unsatisfied forward reference remains. 

Pass by value parameter cannot be type FILE. 

Type of function result is missing from declaration. 

Erroneous type of argument for built-in routine. 

Number of arguments different from number of formal parameters. 
Argument is not compatible with corresponding parameter. 
Operands in expression are not compatible. 

Second operand of IN is not a set. 

Only equality tests (= and ]>) allowed on this type. 

Tests for strict inclusion (<C or I>) not allowed on sets. 

Relational comparison not allowed on this type. 

Operand(s) are not proper type for this operation. 

Expression does not evaluate to a boolean result. 

Set elements are not of ordinal type. 

Set elements are not compatible with set base type. 

Variable is not an ARRAY structure. 

Array index is not compatible with declared subscript. 

Variable is not a RECORD structure. 

Variable is not a pointer or FILE structure. 

Packing allowed only on last dimension of conformant array. 

FOR loop control variable is not of ordinal type. 

CASE selector is not of ordinal type. 

Limit values not compatible with loop control variable. 

Case label is not compatible with selector. 

Array dimension is not bounded. 

Illegal to assign value to built-in function identifier. 

No field of that name in the pertinent record. 

Illegal argument to match pass-by-reference parameter. 

Case label has already been used. 

Structure is not a variant record. 

Previous declaration was not FORWARD. 

Statement label not in range 0..9999. 

Target of nonlocal GOTO not in outermost compound statement. 
Statement label has already been used. 

Statement label was already declared. 

Statement label was not declared. 

Undefined statement label. 

Set base type is not bounded. 

Parameter list conflicts with forward declaration. 

Cannot assign value to function outside its body. 

Function must contain assignment to function result. 

Set element is not in range of set base type. 

File has illegal element type. 

File parameter must be of type TEXT. 

Undeclared external file or no file parameter. 

Attempt to use type identifier in its own declaration. 

Division by zero. 

Overflow in constant expression. 

Index expression out of bounds. 

Value out of range. 

Element expression out of range. 

Unable to open list file. 

File or volume not found. 

Compiler errors. 


600 Directive is not at beginning of the program. 

601 Indentation too large for PAGEWIDTH. 

602 Directive not valid in executable code. 

604 Too many parameters to SEARCH. 

605 Conditional compilation directives out of order. 

606 Feature not in standard Pascal flagged by ANSI ON. 

607 Feature only allowed when UCSD enabled. 

608 INCLUDE exceeds maximum allowed depth of files. 

609 Cannot access this INCLUDE file. 

610 INCLUDE or IMPORT nesting too deep. 

611 Error in accessing library file. 

612 Language extension not enabled. 

613 Imported module does not have interface text. 

614 LINENUM must be in the range 0..65535. 

620 Only first instance of routine may have ALIAS. 

621 ALIAS not in procedure or function header. 

646 Directive not allowed in EXPORT section. 

647 Illegal file name. 

648 Illegal operand in compiler directive. 

649 Unrecognized compiler directive. 


Implementation Restrictions 

651 Reference to a standard routine that is not implemented. 

652 Illegal assignment or CALL involving a standard procedure. 

653 CONST, TYPE. VAR, or MODULE cannot follow routine. 

655 Record or array constructor not allowed in executable statement. 

657 Loop control variable must be local variable. 

658 Sets are restricted to the ordinal range 0..8175 (default) or 0..261999 (max). 

659 Cannot blank pad literal to more than 255 characters. 

660 String constant cannot extend past text line. 

661 Integer constant exceeds the range implemented. 

662 Nesting level of identifier scopes exceeds maximum (20). 

663 Nesting level of declared routines exceeds maximum (15). 

665 CASE statement must have non-OTHERWISE clause. 

667 Routine was already declared FORWARD. 

668 FORWARD routine may not be EXTERNAL. 

671 Procedure too long. 

672 Structure is too large to be allocated. 

673 File component size must be in range 1.32766. 

674 Field in record constructor improper or missing. 

676 Structured constant has been discarded (cf. SAVE_CONST), 

677 Constant overflow. 

678 Allowable string length is 1..255 characters. 

679 Range of case labels too large. 

680 Real constant has too many digits. 

681 Real number not allowed. 

682 Error in structured constant. 

683 More than 32 767 bytes of data. 

684 Expression too complex. 

685 Variable in READ or WRITE list exceeds 32 767 bytes. 

686 Field width parameter must be in range 0..255. 

687 Cannot IMPORT module name in its EXPORT section. 

688 Structured constant not allowed in FORWARD module. 

689 Module name may not exceed 15 characters. 

696 Array elements are not packed. 

697 Array lower bound is too large. 

698 File parameter required. 

699 32-bit arithmetic overflow. 


Non-ISO Language Features 

701 Cannot dereference variable of type ANYPTR. 

702 Cannot make an assignment to this type of variable. 

704 Illegal use of module name. 

705 Too many concrete modules. 

706 Concrete or external instance required. 

707 Variable is of type not allowed in variant records. 

708 Integer following "#" is greater than 255. 

709 Illegal character in a "#" string. 

710 Illegal item in EXPORT section. 

711 Expected the keyword IMPLEMENT. 

712 Expected the keyword RECOVER. 

714 Expected the keyword EXPORT. 

715 Expected the keyword MODULE. 

716 Structured constant has erroneous type. 

717 Illegal item in IMPORT section. 

718 CALL to other than a procedural variable. 

719 Module already implemented (duplicate module). 

720 Concrete module not allowed here. 

730 Structured constant component incompatible with corresponding type. 

731 Array constant has incorrect number.of elements. 

732 Length specification required. 

733 Type identifier required. 

750 Error in constant expression. 

751 Function result type must be assignable. 

900 Insufficient space to open code file. 

901 Insufficient space to open REF file. 

902 Insufficient space to open DEF file. 

903 Error in opening code file. 

904 Error in opening REF file. 

905 Error in opening DEF file. 

906 Code file full. 

907 REF file full. 

908 DEF file full. 
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Absolute locator. 

Acceleration, pen . 

Anisotropic scaling . 

Aspect ratio. 

Aspect Ratio, setting . 

Attributes, color . 

AWAIT_LOCATOR procedure 

Axes .. 

Axes, labelling . 

Axes, logarithmic . 

AxesGrid program . 
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Background value. 5-24 

BAR.KNOB program . 4-1, A9 

BAR_KNOB2 program . A12 

Bold labels . 1-19 

Booting the Pascal system . 1-7 


c 

Cartesian coordinates . 

Cell, character . 

Centering labels . 

Character cell. 

Character size, setting . . 

CharCell program. 

CHARSIZE procedure . 

Choosing the graphics display device . 

CLEAR_DISPLAY procedure . 

CLIPDRAW procedure . 

Clipping lines . 

Closed loop system . 

Color displays, external ... 

COLOR program . 

Color: 

Additional colors . 

Business. 

CMY Color Cube . 

Dithered colors. 

Effective use of . 


. 1-6 

. 2-11 

. 1-17 

. 2-11 

_ 1-16, 2-13 

. 2-11, A17 

. . . . 2-14, 2-18 
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Gamuts . 

Graphics . 

Hardcopy. 

HSL Color Cylinder . 

HSL model . 

Hue . 

Luminosity. 

Map. 

Mixing . 

Model resolution. 

Models. 

Objective use of . 

Primary . 

References . 

RGB Color Cube . 

RGB model . 

Saturation . 

Seeing . 

Spaces . . 

Subjective use of . 

Table .. 

Vector . 

Compiling demonstration programs. 

Complementing lines . 

Continuous degrees of freedom . 

Control value (DISPLAYJNIT) . 

ControlWord variable . 

Conversion between coordinate systems . . . 

ConvertVirtualToWorld program . 

ConvertWorldToVirtual program . 

CONVERT.WTODMM procedure. 

CON VERT. WTOLMM procedure . 

Coordinate systems, conversion between . . . 
Coordinates: 

Cartesian . 

Rectangular . 

Virtual . 

World . 

CRT drawing modes. 

CRT, graphics . 

CrtAddr variable . 

CsizeProg program. 

Cube, Color . 

Cursor tracking . 

Customizing demo programs for your system 
Cylinder, Color. 


. 5-40 

. 5-1 

. 5-40 

. 5-14 

.... 5-5, 5-9 

. 5-5 

. 5-5 

. 5-25 

. 5-37 

. 5-29 
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Data-driven plotting . 2-39 

Datapoint function . 1-6 

DataPoint program . A26 

Defining a viewport . 1-13 

Degrees of freedom: 

Continuous. 4-7 

Non-separable . 4-7 

Number of . 4-3 

Quality of. 4-3 

Quantizable . 4-8 

Separability of . 4-7 

Demonstration programs. 1-4, 1-6 

Device selector (DISPLAYJNIT) . 1-6 

DGLPRG disc. 1-1 

Direction, label. 2-16 

Direction of labels, setting . 1-17 

Display design . 5-37 

Display limits, setting . 2-1 

DISPLAY.FINIT procedure. B13 

DISPLAYJNIT procedure. 1-6, 3-1, B17 

Displays, external color. 3-4 

Displays, turning on and off . 2-7 

DISPLAY.TERM procedure . B23 

Dithered colors. 5-24 

Dithering . 2-43, 5-20, 5-26 

Dominant lines, drawing . 2-23, 5-31 

Drawing lines . 1-7 

Drawing modes, CRT . 2-23, 5-30 

DrawMdPrg program . 2-24, A26 

Dumping raster images. 3-2 


e 


Echoes. B5 

Echoes: 

Built-in . 4-9 

Rubber. 4-12 

Erasing lines. 2-23, 5-31 

External color displays .. 3-4 

External plotter control. 3-5 
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f 

Fast drawing procedures. 

Feedback . 

FillGraph program . 

Filling, polygon. 

FillProg program . 

Force, pen . 

Frame buffer . 

Frame, window . 

Freedom, degrees of . 


. 2-24 

. 4-1 

. 2-46, A30 

. 2-43 

. 2-44, A29 

. 3-6 

5-17, 5-24, 5-32 

. 2-5 

. 4-4 
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Gamuts, color . 5-40 

GLOAD procedure . 2-36 

Graphics display device, selecting . 1-6 

Graphics dump. 3-2 

Graphics, interactive. 4-1 

GRAPHICS key . 2-7 

GRAPHICS Library, using . 1-4 

Graphics memory address. 2-37 

Graphics memory size . 2-37 

Graphics procedure quick reference . B1 

Graphics tablet. 4-13 

GRAPHICSERROR procedure . B24 

GRAPHICSJNIT procedure . 1-9, B26 

GRAPHICS_TERM procedure. 1-9, B27 

GRID procedure . 2-32 

Grids . 2-30 

GSTORE procedure . 2-36, 3-3 

GstorProg program .. A31 

GTEXT procedure . 1-15, 2-18, B28 


Halftoning . 

Hardcopy, color . 

Highlighting data curves . 
HP 98627A RGB interface 

HP-HIL . 

HP-HIL absolute locator . 

HP-HIL digitizing . 

HP-HIL port. 

HP-HIL relative locator . . 
HP9000 362/382 display... 

HP98542 display . 

HP98543 display . 

HP98544 display . 

HP98545 display . 


h 


. 5-20 

. 5-40 

. 2-47 

. 3-4 

. B1 

B3, B30, B62, B64, B68, B84, B109 

. 4-1 

. B1 

B2, B7, B33, B63, B70, B85, Bill 

.5-18 

. 5-18 

. 5-18 

. 5-18 

. 5-18 
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HP98546A . 1-12 

HP98547A display. 5-18 

HP98548A display. 5-18 

HP98549A display. 5-18 

HP98550A display. 5-18 

HP98700 display . 5-18 

HSL color model . 5-5, 5-9, 5-29 

Hue . 5-5 

• 

l 

Images, dumping . 3-2 

Images, storing and retrieving . 2-36 

INCLUDE files . 1-5, 1-7 

Input device selection . 4-4 

Input pixel . B2 

INPUT.ESC procedure. Bl, B30 

INQ_COLOR_TABLE procedure . B34 

INQ_PGN_TABLE procedure . B36 

INQ_WS procedure . 1-13, 2-2, B38 

Interactive graphics . 4-1 

INT.LINE procedure . 2-24, B45 

INT.MOVE procedure . 2-24, B47 

INT.POLYGON procedure . B49 

INT_POLYGON_DD procedure. B52 

INT_POLYLINE procedure . B56 

IsoProg program . 2-28, A40 

Isotropic scaling . 1-10, 2-27 

• 

J 

Justifying labels . 2-18 

JustProg program. 2-21, A46 

k 

KEYBOARD file. 4-4 

1 

Label direction, setting . 2-16 

LABEL JUSTIFY procedure . 2-18 

Labelling a plot . 2-11 

Labelling Axes . 1-25 

Labels, justifying . 2-18 

Labels: 

Bold. 1-19 

Centering. 1-17 

Direction of . 1-17 

LdirProg program. 2-17, A50 








































6 Subject Index 


LEM programs . 2-44, 2-41 

Limits, display . 2-1 

LINE . B58 

Line drawing . 1-7 

LINE procedure . 1-8, 1-32 

Line Styles, selecting . 2-25 

Line value . 5-24 

Lines, clipping . 1-23 

Loading Pascal system . 1-7 

Locator . B1 

LOCATOR program . 4-9, A51 

LOCATORJNIT procedure . Bl, B59 

Locators . B3, B7 

LOCATOR_TERM procedure . Bl, B64 

Logarithmic plotting . 2-32 

LogPlot program . 2-34, A54 

LT instruction. 2-25 

Luminosity. 5-5 

m 

MAKE_PIC_CURRENT procedure. B65 

Map, color . 5-25 

MARKER procedure. 2-47, B66 

MarkrProg program . 2-48, A56 

Memory address, graphics . 2-37 

Memory size, graphics . 2-37 

Models, color . 5-4, 5-9 

Modes, drawing . 2-23 

Module Dependency Table . B131 

Monochromatic defaults in color table . 5-3 

MOVE procedure . 1-8, B67 

Multi-line objects . 2-40 

n 

Non-separable degrees of freedom . 4-7 

Non-square pixels. 5-19 

o 

OUTPUT.ESC procedure . 2-7, 3-2, Bl, B68 

P 

Pascal system, loading . 1-7 

Pen acceleration, controlling . 3-6 

Pen force, controlling . 3-6 

Pen speed, controlling . 3-5 

Permanent command . 1-4 

Photographing the CRT . 5-41 
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Pixel . 1-11, 2-43 

Pixel pairs . 5-19 

PLineProg program . 2-39, A57 

Plot Labelling . 2-11 

Plotter control . 3-5 

Plotter, selecting a . 3-1 

Plotters . 5-16 

Plotting and the CRT . 5-41 

Polygon filling. 2-43 

Polygon interiors . 5-24 

POLYGON procedure. 2-40, B75 

POLYGON.DEV.DEP procedure . 2-42, B78 

Polygons . 5-35 

POLYLINE procedure. 2-39, B82 

PolyProg program . 2-41, A58 


q 

Quantizable degrees of freedom . 

Quick reference for graphics procedures . 

r 

Raster images, dumping . 

Ratio, aspect . 

Rectangular coordinates . 

References, color . 

Relative locator . 

Resolution of color models . 

Retrieving and storing images. 

RGB color model . 

RGB interface . 

Rotation, label . 

Rotation of labels . 

Rubber echoes . 

Running demonstration programs . 


4-8 

B1 


. 3-2 

. 2-2, 4-13 

. 1-6 

. 5-42 

B3, B7, B33, B63, B70, B85, Bill 

. 5-29 

. 2-36 

. 5-4, 5-9, 5-29 

. 3-4 

. 2-16 

. 1-17 

. 4-12 

. 1-4 


s 


SAMPLE.LOCATOR procedure . Bl, B84 

Saturation . 5-5 

Scaling. 1-9 

Scaling,isotropic . 2-27 

Screen dump . 3-2 

Selecting graphics display device . 1-6 

Separability (degrees of freedom) . 4-7 

Separable degrees of freedom. 4-7 

SET_ASPECT procedure . 1-11, 2-1, B86 

SET_CHAR_SIZE procedure. 1-16, 2-12, B88 

SET_COLOR procedure . 5—1, B89 
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SET_COLOR_MODEL procedure . 5-3, B92 

SET_COLOR_TABLE procedure. 2-23, 5-3, B94 

SET_DISPLAY_LIM procedure . 1-24, 2-1, B98 

SET_ECHO procedure . 4-13 

SET_ECHO_POS procedure . B102 

SET_LINE_STYLE procedure . 2-25, B104 

SET_LINE_WIDTH procedure . B108 

SET.LOCATOR.LIM procedure . 4-13, Bl, B109 

SET_PGN_COLOR procedure. 5-1, B113 

SET_PGN_LS procedure . B116 

SET.PGN.STYLE procedure . 2-43, B120 

SET_PGN_TABLE procedure . B121 

SET_TEXT_ROT procedure . 1-17, 2-16, B124 

SET_TIMING procedure . B125 

SET.VIEWPORT procedure . 1-14, 2-2, B127 

SET.WINDOW procedure .. 1-9, 2-2, B129 

Shading graphs . 2-46 

SinAspect program. 1-12, A59 

SinAxesl program . 1-22, A60 

SinAxes2 program . 1-26, A64 

SinClip program . 1-24, A69 

SinLabell program. 1-15, A73 

SinLabel2 program. 1-16, A74 

SinLabel3 program. 1-19, A75 

SinLine program . 1-8, A76 

SinViewpt program . A76 

SinWindow program . 1-10, A77 

Solution vector. 5-21 

Speed, pen . .. 3-6 

Storing and retrieving images . 2-36 

STRLEN procedure . 1-17 

STRWRITE procedure . 1-25 

System Library. 1-4 


t 


Tablets. Bl 

Target vector . 5-21 

Test program . 4-4, 4-9 

Text. 5-35 

Text, writing on graphics screen . 1-15 

Tick marks. 1-20, 2-30 

Touchscreen. Bl, B2 

Tracking the stylus. 4-1 
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Vector, color . 5-21 

Viewport, Defining . 1-13 

Viewport, defining . 2-2 

Virtual coordinates . 1-13 

Vision, color. 5-36 


w 


What command . 1-4 

Window frame, drawing . 2-5 

Window limits, calculating. 2-3 

World coordinates . 1-13,B11,B12 

WRITELN procedure . 1-25 

Writing modes . 5-30 

Writing text on graphics screen . 1-15 















10 Subject Index 



READER COMMENT CARD 
Pascal 3.2 Graphics Techniques 
Manual Part Number 98615-90037 December 1991 


Please use this Reader Comment Card to evaluate this document and tell us of problems or 
suggest improvements. SERIOUS ERRORS rendering a product or device inoperative should 
be entered in STARS (Software Tracking and Reporting System) by the HP Response Center 
or your Support Engineer. 


Please rate the quality of each item below in terms of your expectations: 


Retrievability: 

Manual Title: 

Table of Contents: 
Tabs: 

Headings in Chapters: 
Cross-References: 
Task References: 
Index: 

Organization: 

Completeness: 

Accuracy: 

Readability: 

Language Usage: 
Layout: 


Far Below Below Meets Exceeds Far Exceeds 

Expectations Expectations Expectations Expectations Expectations 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 


3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 


Recommended improvements (attach additional information if needed): 


Name: _ Company: 

Job Title: _ Address: 

Phone: _ 


Please enter the series number of your HP 9000 system, e.g. 700 or 800: 

Hewlett-Packard has the right to use submitted suggestions without obligation, with all such 
ideas becoming property of Hewlett- Packard. 


I 






Hewlett-Packard Company 
Attn: Learning Products Center 
3404 East Harmony Road 
Fort Collins, Colorado 80525-9988 




( 







Manual Part No. 
98615-90037 


■ 


Copyright © 1991 
Hewlett-Packard Company 
Printed in USA 12/91 


